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GENERAL DESCRIPTION OF COMPILER 


1.1 


Summary 
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1700 Mass Storage Fortran is oriented toward the 
users of medium-sized 1700 's. Input is from 
punched cards or paper tape; output is on a 
printer or paper tape punch and is formatted 
accordingly. Card-image input and line-image 
output may be on magnetic tape. Intermediate 
scratch files are on the disc. 1700 Mass Storage 
Fortran is released in versions for 16K or 20K 
machines, and runs under the Mass Storage Operat- 
ing System. 

The compiler consists of four passes over the 
source code or its equivalent, accomplished in 
four phases, called A, B, C, and D/E. (The 
fourth pass is performed by either Phase D or 
'Phase E, according to whether the user wants an 
assembly-language listing output.) Each phase 
consists of a "root" which is core-resident 
throughout the phase, and zero or more "local" 
subroutine groups which share the same core area 
and are read from disc as needed. 



1.2 Phase A Tasks 



These tasks read the source input, convert it to 
statements expressed in an internal code, and assign 
a statement number to the statement. 

The statements are syntax checked and itemized 
into an output file. The loop structure table 
(LOOPT) , equivalence table (IEQV) , specification 
table (ISTAB) , and much of the symbol table (SYMTAB) 
are built. 



1.3 Phase B Tasks 



PHASE B reads the output of PHASE A and generates 
pseudo-code from it. Pseudo code is similar to 
assembler input except that the index to be used 
in an indexed instruction is not specified and the 
addressing mode is not specified. 
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1.4 Phase C, D, E Tasks 

Phases C and D/E are a two pass assembler. . The 
output from Phase B is read. Index registers are 
optimally assigned. One word relative addressing 
is maximized. Relocatable binary output with futures 
and an assembly listing are produced. 

1.5 Partial Compilation In Special Cases 

The number of phases actually executed depends on 
the options selected and success of the compila- 
tion. If only a source listing is requested, only 
phase A is executed; this provides a complete 
syntax check without producing machine code which 
'' is not wanted. Similarly, only phase A will be 

executed if it detected a fatal error in the pro- 
| gram; a fatal error, by definition, precludes the 

! generation of correct machine code, so there is no 

; reason to generate the code. A third abbreviation 

\ of the compilation process occurs with stacked 

\i^'\ compilations when the 'X' option is selected but the 

^—' 'A', 'M' , and 'P* options are not. Detection of a 

| fatal error in a program clears the 'X' option for 

, the stack, and therefore all following programs will 

• be processed only by phase A. 

i 
i 1.6 Local Optimizations 

! Many local optimizations of the code generated have 

been implemented. 
1 1. Index registers are optimally assigned. 

! 2. Relative addressing is used where possible. 

3 Storage is allocated to maximize relative 
addressing. For example, some arrays are 
put into the middle of code. 

4. All simple FORTRAN provided functions are 
inserted in-line (e.g., IABS or AND). 

5. A comprehensive analysis of IF statements is 
made. In the code generated there is cogni- 
zance of a transfer from the IF to the label 
of the next statement and if this statement is 
a (50 TO. 
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PHASEA Routine and Related Subroutines 



2-2.2.1 


Subroutine 


GNST 


2-2.2-2 


Subroutine 


TYPE 


2-2.2.3 


Subroutine 


PEdVS 


2-2.2.4 


Subroutine 


PLABEL 


2-2.2-4.1 


Subroutine 


RDLABL 


2 ■ 2 . 2 • 5 


Subroutine 


OPTIONS 


2-2.2-b 


Subroutine 


0UTENT 


2.2-3.2 


Subroutine 


ENDD0 


2-2.3.3 


Subroutine 


SAVEID 
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General Pass Routines 

2.3.1-1 Subroutine SYMBOL 

2.3.1-2 Subroutine STORE 

2.3.1-3 Subroutine GETSYfl 

2-3. 1-4 Subroutine CNVT 

2-3.1.S Subroutine SYMSCN 

Field Processing Routines 



2-3.2. 


.1 


Subroutine GETF 
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.2 


Subroutine GETC 


2.3-2- 


.3 


Subroutine GPUT 


2-3-2- 


.4 


Function IGETCF 


2-3-2- 


.5 


Subroutine STCHAR 
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2-3-3 



2-3-4 



2-4 



Special Field Analyzing Routines 

2-3-3-1 Subroutine C0NSUB 

2-3-3-2 Subroutine CFIV0C 

2-3-3.3 Subroutine CKIVC 

2.3.3.4 Subroutine CKNAME 

Diagnostic Handling Routine 

2-3-4-1 Subroutine DIAG 

2.3.4.2 Subroutine C0NV 

2.3.4-3 Subroutine PACK 

2-3-4-4 Subroutine PUNT 

2-3.4-5 Subroutine PRNTNM 

2-3. 4-b Subroutine I0PR 

Statement Specific Phase A Routines 



2.4-1 
2-4-2 
2.4-3 



DIMENSION Statements - Subroutine DIMPR 
COMMON Statements - Subroutine C0MNPR 
TYPE Statements - Subroutine TYPEPR 



AA 3777 



PRINTED IN USA 



CONTROL DATA CORPORATION 
— - DIVISION 



DOCUMENT CLASS.. **!§ PAGE NO 5 " 3 

PRODUCT NAME 1700 MASS STORAGE FORTRAN . ■ 

PRODUCT MODEL Kin CD05 V.a.Q ; MACHINE SERIES 170 Q . 



2.4.4 BYTE, EQUIVALENCE Statements - Subroutine 
BYEQRR 

2.4.5 SUBROUTINE, FUNCTION Statements - Subrou- 
tine SUBPPR 

2.4.6 DATA Statements - Subroutine DATAPR 

2.4.7 FORMAT Statements 

2.4.7.1 Subroutine CHECKF 

2.4.7.2 Subroutine FORK 

2.4.7.3 Subroutine FGETC 

2.4.8 ASSEM Statements - Subroutine ASEMPR 

2.4.9 ASSIGN Statements . - Subroutine ASGNPR 

2.4.10 EXTERNAL & RELATIVE Statements - Subroutine 
EXRLPR 

2.4.11 REWIND, ENDFILE, BACKSPACE Statements - 
Subroutine ERBPR 

2.4.12 READ, WRITE Statements - Subroutine IOSPR 

2.4.13 DO Statements *- Subroutine BDOPR 

•(^j 3.3 Special Subroutines for Common Allocation 

3.3.1 Subroutine ARAYSZ 

3.3.2 Subroutine CPLOOP 

3.4 Arithmetic Expression Processors J 

\ 3.4.1 ARITH 

i 3.4.2 SUBSCR 

3.4.3 TREE 

t ■ 3.4.4 MO'DMXR 



Q 



CA I3B-1 REV 10-87 



CONTROL DATA CORPORATION 

vJQ LLA R ES OU RCE CENTER : 



DIVISION 



DOCUMENT CLASS. 
PRODUCT NAME_ 



_U1£_ 



1700 MASS STORAGE FORTRAN 



PAGE NO. 



2-M 



PRODUCT MODEL Kin. C005&3.1 A/B 



-MACHINE SERIES 



1700 



2.0 



PHASE A TASKS AND SUBPROGRAMS 



2.1 
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2.2 



2.2.1 



OVERLAY PROGRAMS 

Each phase consists of a main section, or 
'root 1 , which is resident in core during the 
entire execution of its phase, and, if neces- 
sary, a number of subroutine groups, or 
'local files', which are read in from the 
disc as needed. The local files overlay one 
another in core and are so programmed that 
they are 'read-only'... no program in a 
local file contains variables which are carried 
over from one call to the next, so the I.'.le 
may be overlaid by another and recalled later 
without being saved in the meantime. (Some pro- 
grams which are in local files do have vari- 
ables which must be preserved; these vari- 
ables are placed in blank common, which is 
not overlaid during a phase.) In effect, the 
local files are an extension of the phase 
concept, except that a program in one local 
file can, with certain restrictions, call 
one in another local file of the same phase. 

FLOW OF CONTROL 

The compiler is entered by calling the relocatable 
program FTN from the system library. FTN in 
turn calls the file FORTAl from the library 
and transfers to the first instruction of the 
routine GOA. From this point on control is 
transferred by normal calling sequences from 
GOA to the main routine of phase A, PHASEA, 
and to various subroutines. When it is neces- 
sary to use a routine in a different local 
file, the subroutine LOCAL is called, giving 
file number and entry number within file. 
LOCAL reads the overlay portion of the speci- 
fied file into the overlay area. The overlay 
portion of each file begins with a list of 
the addresses of its entry points; LOCAL 
transfers to the n'th address in the list for 
the new file. When the routine thus called 
returns to LOCAL, LOCAL reads the original 
calling file back in and returns control to 
the program which originally called.it. (In 
the 2 OK compiler, most calls are from PHASEA, 
in the root, to local subroutines. In this 
case, if the desired subroutine is already 
in core, LOCAL is bypassed; if not, the routine 
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2.2.1.0.1 
2.2.1.1 



is read and called by LOCAL, but when it 
returns, its file is left in core. Inter-local 
calls... between IOSPR and ARITH, and between 
ARITH and MODMXR. . . are handled as in 16K. ) 
The local-file mechanicm is generally trans- 
parent to the compiler programs. 

At the end of phase A, the main routine (PHASEA) 
returns to GOA, which in turn returns to FTN. 
FTN reads in the first file of the next phase 
(FORTB1) and jumps to GOB. There are similar 
linkages from phase B to C , and from C to D or 
E. 

In the event that compilation should be aborted 
after phases A or B (see section 1.5) , a call 
is made to entry SKIPIT in subroutine GOA or 
GOB. SKIPIT causes an alternate return from 
GO to FTN, such that FTN re-initializes itself 
just as though phase D/E had just been completed, 
and reads FORTAl to start compiling the next 
program (if any) on the input stack. 

The choice between sub-phases D and E is based 
on the user-selected options; D is used unless 
an assembly-language listing is requested (A or 
M option) . In the 16K compiler, FTN always 
reads FORTDl at the start of phase D/E, and the 
phase D/E local routine decides whether to use 
the D or E local routines. (The D and E roots 
are identical.) In the 20K compiler, GOC 
tests the options and makes an alternate return 
to FTN such that FORTDl or FORTE1 is read. 

FLOWCHART OF PROGRAM FTN 

VERSIONS OF 'GO' ROUTINE 

In each phase, the subroutine GO is called by 
FTN; it calls the initialization entry of the 
I/O package, then the main routine of the phase; 
then performs some I/O clean-up and returns to 
FTN. In addition to this, each GO has special 
functions which will be detailed below. 
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GOA checks a flag set by FTN, to determine 
whether this is the start of a stacked compila- 
tion; if so, it STATUS 1 es the list device and 
sets a flag telling whether the device can 
accept standard carriage control; and it calls 
OP ANAL to request options from the typewriter. 
If this is not the start of a stack, the first 
source statement is read and checked for being 
a MON; this saves rebuilding the phase A local 
files just to read a MON. (The statement, if 
not a MON, is left in the input work area for 
later processing by GNST. ) Whether or not 
this is the start o^ a stack, the phase A 
local files must then be prepared. (A flag 
is tested to determine whether the files are 
still intact in the disc scratch area, as they 
would be if phase B had not been called; if 
so, LOCALS is called at entry LOCLZ2, rather 
than L0CLI2, to just rebuild tables in core 
rather than rebuilding the scratch area.) 
PHASEA is then called. It will either return 
normally, or call SKIPIT; GOA's return address 
is adjusted accordingly. The WRITE entry in 
IOPR is called to force out the last scratch 
page, and GOA returns to FTN. 

GOB clears the flag which indicates that the 
phase A local files are intact in the scratch 
disk area; interchanges the scratch file num- 
bers so that the phase A output file becomes 
the phase B input file; in th'e E -0A version, 
causes the phase B local files to be generated; 
calls phase B; and upon return, finishes the 
phase as GOA did. 

GOC, in theE.OA version, is similar to GOB. 
In the E.OB version, after return from PHASEC 
(There is no SKIPIT entry), it chooses alternate 
returns to FTN depending on whether or not the 
A and M options are selected. 

GOOD and GOE are identical to one another in 
function and are similar to GOB. However, 
after return from the main routine (PHASE6) , 
there is no scratch page to be output; and, if 
the list device is a magnetic tape, an end of 
file is written. 
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The load-and-go file is built at the start of 
the scratch disk area, if the X option was 
specified, by the phase D/E routine NPUNCH. 
The compiler's scratch area "floats" on the 
growing load-and-go file; at the start of 
each compilation, GOA saves the address of the 
top of the file from the communication area 
in low core, and at the end of each compilation 
GOOD or GOE adds to that value the length of the 
current load-and-go output, (Also see dis- 
cussion of disk allocation in description of 
subroutine IOPR. ) 

2.2.1.1.1 FLOWCHARTS OF SUBROUTINE GO 

2.2.1.2 VERSIONS OF 'LOCAL 1 ROUTINE 

References to non-resident subroutines (in 
phases A, B, D and E of the 2. 0A compiler and 
phase A of the 2. OB pass through the subrou- 
tine LOCAL. Subroutines to be piaced in 
"local files" are written so that any variables 
which must be preserved between calls are plac- 
ed in blank common, so that the routine can be 
overlaid without first being saved. The non- 
resident routines are then grouped in files on 
scratch disk, and references to them are inter- 
cepted by dummy routines which call LOCAL. 
That routine reads the file containing the 
called routine, executes that routine, and 
returns control to the dummy's caller. 

At the start of a phase containing local sub- 
routines, the entry LOCLIZ is called; it trans- 
fers the local files from the library to scratch 
disk, so that they can be referenced directly 
rather than via GTFILE. Each file so transferred 
contains: (1) one word containing the address 
of ENDLOC, a dummy routine loaded at the end 
of each file so that the file length can be com- 
puted; (2) a list of words containing the address 
of each "entry point" of that file; and (3) the 
absolutized subroutines of the file. 

A call to a local subroutine not presently in 
core goes through a dummy routine and becomes a 
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call to LOCAL with a file number and entry num 
present state of the overlay system is saved i 
of pushdown stacks. The desired file is read 
overlay area and the desired entry point is ca 
that program causes a LOCAL calln the state sa 
file reading is repeated^ the number of levels 
allowed is limited by the size of the pushdown 
Upon return from a local filen the stacks are 
one level. The calling file is read back in -C 
in 2.QBn if the call was from the root>n and t 
program is returned to. 



ber- The 
n a number 
into the 
lied. If 
ving and 
of call 
stacks . 
popped up 
exceptn 
he calling 



A "flag" paramter is provided in LOCAL and has three 
quite different uses in different versions of the routine 

In 2. DA phase At FLAG=1 means that the calling file has 
finished executionn and need not be read back in=l for 
examplen PHASEA in file Al calls ARITH in file A2n just 
before returning! ARITH calls TREE in file A3n and just 
before returningn TREE may call ilODMXR in file At. 
There is no reason to reload TREE and ARITH after flODMXR 
is done n so the stacks are popped up three levels and 
control goes directly from flODHXR to PHASEA- 

In 2. DA phase Bn parameters must be passed to local 
routines 1 ! heren FLAG=1 means that the following word is 
a parameter address to be passed on. 

In 2.DB phase An almost all calls are from PHASEA in the 
rooti to local routines^ there FLAG=1 signals the case 
of a local-to-local calln where a different algorithm 
is needed to find the proper return address- 

In the 3. DA and 3.1A compilern routines STCHAR and GETC 
must be loaded at the same point in files F0RTA1 and 

FORTAb in order to have externals in SAVEID patched prop- 
erly for both files. This is accomplished by a small 
BSS in DUMYAt. which is followed immediately by ERBPR to 
equal the length of DUF1YA1. 



2.2.1.2.1 Flowcharts of the "Local" Subroutines 
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Scratch 
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2.2.2 PHASEA 

Phase A operates as follows: 

1. Perform PHASEA Initialization. 

2. Read a statement. 

3. Process the label. 

4. Determine statement type. 

5. Branch to process the statement type by either 
a. calling the particular processor if the 

statement type is not to be processed in 
PHASEA, or - 
b» branching to the in-line processing of the 
statement type in PHASEA. 

6. Repeat the procedure from step 2 to step 5 
until an END statement is reached. Upon the 
occurrence of an END statement, exit from 
PHASEA. 

2.2.2.0.1 PHASEA Initialization 

The initialization procedure for PHASEA operation is 
described in detail in the flow charts for PHASEA. 
The Phase A Block Data routine contains all data 
presets for labelled common. 

2.2.2.0.2 Reading Statements 

Each FORTRAN source statement is assigned a statement 
number by the PHASEA routine. ISTNO is the name of a 
register which contains the number of the statement 
about to be read and processed. ISTNO is set to 
zero by Initialization. It is then increased by 1 
prior to reading each source statement. In this manner 
ISTNO contains the number of each source statement at 
the time it is to be read. A source statement is 
read by a call to the routine whose name is GNST. (See 
item 2.2.2.1) 
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2.2. 2. D- 3 Format of Input Entry 



O 



The GNST routine will read a source statement from a 
card and store it in its internal buffer -CISRS1- The 
characters which make up the source statement are 
recorded in the ASCII code as follows: 



Character 



Digits: 
Letters : 



A-Z 



ASCII Code 

$30 - 3T 
$m - $5A 



Special Characters 

Dollar Sign $ $21* 

Period . $2E 

Plus + $2B 

Minus - $2D 

Equal Sign = $3D 

Left Paren -C $2fl 

Right Paren > $2=1 

Comma n $2C 

Slash / $2F 

Asterisk * $2A. 

Space $20 
Statement Terminator $20 

Single fluote ' $27 

The GNST routine will convert the code for each character 
of the statement from ASCII to Internal FORTRAN- The 
Internal FORTRAN code is as follows: 



O 



Character 


Internal FOf 


*TRAN 


Code 


Digit: D-T 


D - 


T 




Letter: A-Z 


ID - 


35 




Special Characters 


., 






Dollar Sign 


3b 






Period 


37 






Plus 


3fi 






Minus 


3=] 






Equal Sign 


HU 






Left Paren 


m 






Right Paren 


42 






Comma 


M3 






Slash 


^^ 






Asterisk 


HS 






Space 


Hb 






Statement Terminator 


m 






Single <3uote 


4fl 







Following the code conversions! the entire statement 
is transferred to the source buffer -CIS0RS>« The 
buffer which is internal to the GNST 
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routine and the source buffer are defined in the source 
language of the compiler by COMMON statements. The name 
of the source buffer is ISORSn and its length is 2Dfi. 
Upon return from GNSTn ISORSX contains the number of 
words in the source statement. 

2.2. 2.U.M Processing Label 

The PHASEA subroutine will call the subroutine whose 
name is PLABEL- This subroutine will determine whether 
or not there is a label andn if soi process it. 

2. 2. 2.0. 5 Identifying Statement Type 

The type of the source statement currently being pro- 
cessed is determined by the subroutine whose name is 
TYPE- Upon return from the subroutine TYPEn an identi- 
fying number giving statement type is recorded in the 
third word of the output buffer- {Refer to items 
2.2.2.D.b.2 and 2 .2.2 .0 . b-2 .1}. 

There are M7 type numbers used to identify FORTRAN 
source statements: 



O 



Type Number 


Statement 


D 


DIMENSION 


1 


COMMON 


2 


INTEGER 


3 


REAL 


l» 


INTEGER FUNCTION 


S 


REAL FUNCTION 


h 


PROGRAM 


7 


SINGLE 


a 


BYTE 


T 


SIGNED BYTE 


ID 


EXTERNAL 


11 


RELATIVE 


12 


EQUIVALENCE 


13 


BLOCK DATA 


m 


SUBROUTINE 


■is 


FUNCTION 


lb 


DATA 


17 


FORMAT 


IB 


Replacement statement 


IT 


Statement function 


2D 


ASSIGN 


21 


CALL 


22 


RETURN 
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23 NOT USED ' 
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25 COMPUTED GO TO 
2b ASSIGNED GO TO 
27 CONTINUE 

2fl STOP 

2=1 STOP n 

30 PAUSE 

31 PAUSE n 

32 END 

33 END FILE 

34 REWIND 

35 BACKSPACE 

3b READ {unformatted} 

37 READ {formatted} 

3fl WRITE {unformatted} 

3T WRITE {formatted} 

MO BEGIN DO 

m END DO 

42 ARITHMETIC IF 

43 LOGICAL IF 

44 ASSEM 

45 OPEN 

4L. DOUBLE PRECISION 

47 DOUBLE PRECISION FUNCTION 

2.2.2.0-b Branching to Process Statements 

Branching to process a statement is accomplished by 
means of a Computed GO TO statement in which the index 
ITEMPX contains the type number +1 for the FORTRAN 
source statement- A jump is made to a particular 
statement number in the subroutine depending on the 
value in ITEMPX- After processing each statementn a 
test is made to see if the statement has a label- If 
the source statement does have a labeli a call is made 
to the ENDDO subroutine. If this statement label 
terminates a DO loopn ENDDO will generate the necessary 
intermediate language for the DO loop termination 
procedure. Prior to calling ENDDOn the statement label 
is recorded in ILLABL- 

2.2.2-D-h-l Statements Not Processed in the PHASEA Routine 

Each of these statements is processed by a call to its 

O processor subroutine. The call is made from PHASEA 

subsequent to branching. 



O 
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Source Statement 



Subroutine called from PHASEA 



DIMENSION 

COMMON 

SINGLE 

INTEGER 

INTEGER FUNCTION 

REAL FUNCTION 

REAL 

BYTE 

SIGNED BYTE 

EXTERNAL 

RELATIVE 

EQUIVALENCE 

FUNCTION 

SUBROUTINE 

DATA 

FORMAT 

ASSIGN 

CALL 

ENDFILE 

REWIND 

BACKSPACE 

READ unformatted 

READ formatted 

WRITE unformatted 

WRITE formatted 

DO 

ASSEM 

OPEN 

DOUBLE PRECISION 

DOUBLE PRECISION FUNCTION 



DIMPR 

COMNPR 

TYPEPR 

TYPEPR 

SUBPPR 

SUBPPR 

TYPEPR 

BYEflPR 

BYEflPR 

EXRLPR 

EXRLPR 

BYE(3PR 

SUBPPR 

SUBPPR 

DATAPR 

CHECKF 

ASGNPR 

ARITH 

ERBPR 

ERBPR 

ERBPR 

IOSPR 

I0SPR 

IOSPR 

IOSPR 

BDOPR 

ASEMPR 

IOSPR 

TYPEPR 

SUBPPR 



O 



2. 2. 2.0. L>. 2 Statements Processed in the PHASEA Routine 

Several statement types are processed in the PHASEA 
subroutine. These are PROGRAMt BLOCK DAT An RETURNn 
GO TOn IFn CONTINUE! STOP-, PAUSEn replacement statements! 
statement functions-i and END- 



2 .2 .2 .0 .b.2 .1 Program 



The PHASEA routine verifies the correct format of the 
statement then records the name of the program in the 
symbol table as a program name. In the event of a 
format errorn an indication is made by a call to the 
DIAG subroutine. The PHASEA subroutine then reads and 
processes the following source statement. 
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2. 2. 2-0. Li. 2. 2 Block Data 



The PHASEA routine verifies the correct format of the 
statement. In the event of an errori an indication 
is given by a call to the DIAG routine. The switch 
named ISUBP is set to a n l" to indicate the compiler 
will generate object code for COHNONt DATAn BYTEn 
EQUIVALENCE 8 DIMENSION statements only- 



2. 2. 2. D. Li. 2. 3 Return 



O 



A RETURN statement is legal only if the source program 
is either a FUNCTION or SUBROUTINE. If the RETURN 
statement is used legallyn the intermediate language 
is passed on for processing by a subsequent phase. 

If the return statement is used illegally-i an error 
diagnostic is produced by a call to the DIAG subroutine. 
A STOP statement is substituted for the RETURN statement 
and it is passed on as intermediate language to be 
processed by a subsequent phase. 



2.2.2.D.L..2.M GO TO 



O 



The GO TO type is determined. Depending on the typen 
the statement is syntax checked and converted to list 
notation. Computed GO TO causes a call to ARITH- 
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■2.2.2.0.6.2.5 



IF 



For both logical IF and Arithmetic IF st 
merits, the expression in parentheses is 
cessed by a call to the ARITH subroutine 
this call if the statement is an arithme 
PHASEA will process the three statement 
following the arithmetic expression in t 
source statement. Statement labels foil 
the expression must be separated from ea 
other by commas, and the last one must b 
ed by an EOS. There must be exactly 3 s 
ment labels in an Arithmetic IF statenen 
statement labels are processed as follow 



ate- 
pro- 

tie 

lab 

he 

owi 

ch 

e f o] low- 

ta-' 

4- 



A if tor 
IF, 

els 



:e- 



s : 



PHASEA calls the RDLABL subroutine in 
order to extract the statement label 
from the source buffer. If the .state- 
ment label does not appear in the sym- 
bol table, it is entered therein by 
a call to the STORE subroutine. Upon 
return from STORE, the entry in the 
symbol table is assigned the classi- 
fication for a statement label b^ - 



O 



7 __: 



ICLASS (ISYMX) 



An entry is made into the output when the point- 
er to the symbol table entry is recorded as 
part of the intermediate language by - 

(ISYMX) + (ISYMP) — ^ IBUF2 (ITEMP1) 

(Upon return from ARITH and prior to processing 
the 1st statement label, the tally register 
IBUF2X was recorded in ITEMP1. IBUF2X was 
then increased by three for the three extra 
words of intermediate language generated in IBUF2) 

After all the labels are processed, WORD 1 of 

the output buffer is set to the word length cf 

the output buffer by - 

(TBUF2X) - 1 — >> IBUF2(1). 

The PHASEA subroutine will check for and give 
diagnostics upon occurrence of any of the 
following errors: 
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1. There are either fewer than or more than 
three statement labels following the express- 
ion in an Arithmetic IF statement. 

2. A character other than a comma has occurred 
between two statement labels. 

3. A character other than an EOS follows the 
last statement label. 

4. Two commas have occurred consecutively in 
the source statement with no statement label 
between . 

Each of the above errors will cause processing of the 
Arithmetic IF statement to be terminated. 

The LOGICAL IF statement is broken into two state- 
ments by the PHASEA subroutine. Only the first of 
the two subsequent statements is assigned a state- 
ment number. There is an output entry generated 
for each statement. WORD 2 of the 1st output entry 
contains the statement number for the LOGICAL IF 
statement. A switch named LOGIF is at all times set 
to the zero position except - 

1. it is set to a "1" when processing the 1st 
half of a Logical IF statement, and - 

2. it is set to a "2" when processing the 
second half. 

The second of the two statements may be one of the 
f pi lowing: 

REPLACEMENT 

CALL 

GO TO 

STOP 

PAUSE 

RETURN 

READ 

WRITE 

ENDFILE 

REWIND 

BACKSPACE 

The switch named LOGIF is at all times set to zero 

except when processing a statement whose type number 

identifies the statement as a Logical IF. Upon receipt 

of a Logical IF statement, the LOGIF switch is set 

to a 1. The input entry containing the Logical 

IF is passed as intermediate language. If the state- 
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ment has a label, the label is recorded temporarily 
in ITEMP9, otherwise, (ITEMP9) = 0. 

The second half of the logical IF statement is moved 
to the beginning of the ISORS buffer so that it 
appears to the PHASEA routine as an independent 
statement. PHASEA then branches to the point just 
after the call to GNST. 

When the following statement is processed, it is 
recognized as the 2nd part of a Logical IF by the 
fact that - (LOGIF) =1. 

The input entry for the 2nd part of the Logical IF 
is passed on as intermediate language for process- 
ing by a subsequent phase in the same manner as 
for the 1st part. Afterward, the switch LOGIF is 
set to a 2. Then if (ITEMP9) f 0, the label in 
ITEMP9 is placed in ILLABL and a call is made to the 
ENDDO subroutine. If this statement label is associ- 
ated with the end of a DO loop, ENDDO will generate 
the necessary intermediate language for termination 
of the DO loop procedure. PHASEA will then process 
the next statement in sequence. If (ITEMP9) = 0, 
PHASEA proceeds immediately to process the next state- 
ment in sequence. 

The LOGIF switch will be reset to a zero when pro- 
cessing the next statement in sequence. 



2.2.2.0.6.2.6 CONTINUE 



A CONTINUE record is output. (See Output Format, 
Phase A, Chapter 7, section 7.5). 



2.2.2.0.6.2.7 STOP 



PHASEA determines whether or not the STOP statement 
is a 

STOP n 

in which "n" represents an octal integer, followed by 
a legal terminator (EOS character) . One of the follow- 
ing three events will occur: 

1. The statement is not a C 

STOP n 

and the intermediate language will be passed 
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2.2.2.0.6.2.8 PAUSE 



on for ■! ocessing by a subsequent phase. 

The statement is a 

STOP n 

where "n" is an octal integer fo.l lowed by 
a legal terminator. The type number in 
word 3 of the output buffer is changed to 
type number for a STOP n by - 

IBUF2(3)+1 — -^IBUF2(3). 

The statement is a 

STOP n 

where either "n" is something other than 
an octal integer or an octal integer f> ..low- 
ed by something other than a legal terminator 
An error diagnostic is produced by a call to 
the DIAG subroutine. The in'- rmediate 
language for the statement is o ;■.':■■ sod on. 



PHASEA determines whether or not the P^s'fo' statement 
is a , 

PAUSE n 

in which "n" represents an octal integer, fo..; loved 
by a legal terminator (EOS character) . One of the 
following three events will occur: 

1. The statement is not a 

PAUSE n 

and the intermediate language will be 
passed on for processing by a subsequent 
p'tise. 

2. /i statement is a 

PAUSE n 
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wherein "n" is an octal integer followed 
by a legal terminator. The type number in 
word 3 of the output buffer is changed to 
the type number for a PAUSE n by - 

IBUF2 (3)+l — =3- IBUF2 (3) . 

The octal integer is recorded as the last 
word of the output entry for the state- 
ment. The intermediate language for tho 
statement will be passed on for process- 
ing by a subsequent phase. 

3. The statement is a 

PAUSE n 

wherein either "n" is something other than 
an octal integer or an octal integer followed 
by something other than a legal terminator. 
An error diagnostic is produced by a ce.1.1 
to the DIAG subroutine. The intermedin to 
language for the statement is passed or.. 

2.2.2.0.6.2.9 Replacement Statements and Statement Functions 

PHASEA reads the first field of the statement using 
GETF. If the field is not a variable, array, or 
unassigned name, an error is output and the state- 
ment ignored up to the equal sign. 

If the field is a legal name, it is entered in SIYMTAB, 
if not already there. 

The field terminator is then checked. If the ter- 
minator is neither a left parenthesis nor an equal 
sign, an error is output and the statement ignored 
up to the equal sign. 

If the terminator is left parenthesis and the name 
has not yet been classified as a variable or ar*ay 
and we have not yet encountered the first execu- 
table statement, the name is assumed a statement 
function. The initial part of the output entry is 
set up in IBUF2 accordingly, and the function para- 
meters are entered in SYMTAB. 

If a statement function is illegal at this poinr- in 
the program or the name has previously been determined 
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a variable or array, PHASEA resets ISORSX so that 
the first field will be reprocessed and calls 
ARITH to process the information to the left of the 
equal sign (ISTOP =2) . 

After ascertaining in all cas©s that ISORSX is 
positioned to the field immediately following the 
equal sign PHASEA recalls ARITH to process the 
information in the statement to the right of the 
equal sign (ISTOP = 0). 

Upon return from ARITH, PHASEA voids the SYMTAB 
entries for statement function parameters if it 
has been processing a statement function. 



2.2.2.0.6.2.10 END 



If the program being compiled is a main program, a 
check is made to see if a "last executable statement* 
must be generated. If the type number of the pre- 
vious statement (stored in LEST) is not one of the 
following, PHASEA will generate the 4 word output 
record for a STOP statement: 



GO TO 

STOP 

Arithmetic IF 

If any DO LOOP remains 'open 1 , that is, if the label 
terminating any DO loop has not been encountered, 
a fatal diagnostic is generated. A CONTINUE state- 
ment is generated in IBUF2 and a call to ENDDO is 
made for each missing label. 

An output record for an END statement is generated 
and output. Then CPLOOP is called to assign relative 
addresses for elements and dimensions in COMMON 
storage. If a fatal error has been detected in 
Phase A, or if no assembly or execute options (X,M, A, P) 
are set, compilation is terminated at this point 
by a call to SKIPIT. Otherwise, an exit is made 
from PHASEA. 



O 



2.2.2.0.6.3 Format of Phase A Output Records 

An output record consists of the information neces- 
sary to convert the statement to pseudo-assembler 
instructions in Phase B. The format of the output 



CA 138*1 R(V 10*47 



CONTROL DATA CORPORATION 



DIVISION 



DOCUMENT CLASS. 
PRODUCT NAME__ 



IMS 



1700 MASS STORAGE FORTRAN 



PAGE NO.. 



E-3E 



PRODUCT MODEL NO. C005 V'5'D 



MACHINE SERIES 170 ° 



record for each statement type is listed in Chapter 
7, section 7.5. The first 4 words are the same 
for all output records: 

Word 1 contains the total number of words in 
the output entry , including words 1-4. 

Word 2 contains the statement number for the 
source statement (ISTNO) . 

Word 3 contains the statement type. 

Word 4 is a switch used to signal the generated 
statement or statements which comprise the 
second half of a logical IF. 

Word 5. If word 2 is negative, the absolute 
value of word 2 is the statement number of the 
statement, and word 5 contains the SYMTAB 
entry for the statement label of that statement. 
If word 2 is positive, the coded information 
appropriate to the statement type begins in 
word 5. 

Output record information is built in IBUF2, and 

is written on the disk by a call to the OUTENT routine • 

The starting address for the write operation is 

specified as the only argument of the subroutine 

call. 
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2.2.2.1 Subroutine GNST 

The GNST subroutine reads the source statements which 
are to be processed by the PHASEA subroutine. 

With the exception of comment cardsn each source card 
read by GNST is processed in three stages. 

STAGE 1. 

The GNST subroutine calls the READ entry point in 
IOPRBA to read an A2 character record from unit 1 in 
the ASCII mode. The input buffem ISRSn occupies m 
words of Phase A blank common. The GNST routine then 
scans ISRS from right to left and stores in the variable 
LENGTH the location of the right-most word containing 
a non-blank character -Cnot equal to $2Q2D>. 

STAGE 2. 

The contents of the ISRS buffer are printed and 
transferred to the source buffer ISORSn which occupies 
2Dfi words of Phase A blank common. 



O 



STAGE 3. 

The characters stored in the source buffer ISORS 
are converted from ASCII code to the internal Fortran 
code {see 2.2.2.Q-3}. 

Continuation records are processed through all three 
stages during one call to GNST- The initial record of 
a Fortran statement other than END is passed through 
stage 1 on one call to GNSTt and through stages 2 and 
3 on the following call. Because GNST reads at least 
one record ahead in the source language inputn at least 
two consecutive source records will be processed during 
a single call to this subroutine. 

2.2.2.1.1 Normal Flow of Subroutine GNST 

This section describes the operations accomplished by 
a single call to GNST after the first non-comment record 
has been processed and before the END record has been 
read- At entry to GNSTt the input buffer ISRS will contain 
the initial record of a Fortran statement that has pre- r-N. 
viously been processed through stage .1- The first task \_J 
of GNST is to process this ISRS buffer through stage 2\ 
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that isi to print the record -Cif the list option 
switchn ILn is on} with an internal statement numberi 
and then move the record to ISORS- A full seventy-two 
characters -C3b words> are transfered to ISORS to allow 
for later continuation cards- The location of the 
rightmost non-blank word in the recordn formerly saved 
in LENGTHS is transferred to LENSAV - 

The subroutine GNST next reads a new input record into 
ISRS and processes it through state In any characters 
stored as $FF by the paper tape or magnetic tape drivers 
are changed to blank -C$20} and the location of the right- 
most non-blank word is ISRS is stored in LENGTH - 

After processing the new input record through stage It 
GNST checks for three special cases - a blank recordn 
a comment recordn or a continuation record -Cnot zero 
or blank in character #b}- These three types of records 
are immediately processed as follows: 

a} Blank record - ignored. A new input record 
is read and processed through stage 1. 

b} Comment record - printed and ignored. If the 
IL switch is oni the comment record is printed without 
a statement number and then a new record is read and 
processed through stage 1- 

c} Continuation record - completely processed in 
one call- The contents of ISRS are printed without a 
statement number -Cif IL = 1}- Characters 7 through 72 
of the continuation record are added to the end of the 
statement in the ISORS buffer- ISORSX -Cset to 1 on 
entry} is set to the beginning of the added record. 
The variable LENSAV is reset equal to LENGTH so that 
LENSAV contains the location of the rightmost non-blank 
character in the last record added to the ISORS buffer- 

If the record in ISRS is the initial line of a Fortran 
statement other than ENDt further processing is deferred 
until the next call to GNST- At this point in the flown 
a full Fortran statement {with all continuations} is 
contained in ISORS- The final step of the GNST sub- 
routine is to convert this statement from ASCII code 
to internal Fortran code- GNST exits with a full con- 
verted Fortran statement in ISORS and the initial line 
of a Fortran statement in ASCII in ISRS- 
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2. 2. 2. 1.2. First and last source records. 

Until the first non comment record is read, stages 
two and three are skipped in the GNST flow. The 
variable LENSAV is set to zero by a data statement, 
and therefore remains z.ero until a non- comment state- 
ment is read. When LENSAV is equal to zero, the 
printing and transfer of ISRS at the beginning of 
GNST and the code conversion at the end are not exe- 
cuted. Initial comment cards are printed as usual. 

At the end of stage two, after ISRS has been trans- 
ferred to ISORS, ISRS is tested for the presence of 
an END record. If the card in ISRS is an END card 
no more input records are read and the END card is 
immediately converted to internal code. 

2.2.2.1.3. Errors 

When processing a non-comment statement, GNST tests 

for the following illegalities. f~^\ 

1. That the first non-comment record is 
an END statement. 

2. That the first non-comment record is 
a continuation card. 

3. That there are more than five continua- 
tion cards for a source statement. 

4. That characters illegal in Fortran occur 
in the source statement. 

2. 2. 2. 1. 3. 1; End statement as first non-comment record. 

The variable LENSAV is set to zero until the first 
non-comment card is read and processed. If the END 
card is read while LENSAV =0, an error diagnostic 
is given, and further processing of this program is 
terminated by a call to subroutine SKIPIT. 

2.2.2.1.3.2. Continuation card as first non-comment card of deck. 

Error flag IERR35 is set, character number 6 is set to 
blank, and the record is treated as the initial record ^-^ 

of a Fortran statement. After the record is fully pro- \^J 

cessed the appropriate error diagnostic is printed. 
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2. 2.2.1. 3.3. More than 5 continuation cards. 

ITALLY is a tally register for the number of con- 
tinuation cards per statement. ITALLY is set to 
zero on entry to GNST and increased by 1 for each 
continuation card read. When ITALLY exceeds 5 
in value the error flag IERR47 is set. Continua- 
tion cards in excess of 5 are printed but are not 
added to ISORS*^hen the next initial statement 
card is read, the diagnostic is printed. 

2.2.2.1.3.4. Illegal characters 

Characters not contained in the Fortran character 
set are converted to blanks in stage 3, after printing 
the record. A non-fatal diagnostic is printed for 
each illegal character. 
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2.2-2.2 TYPE 



The TYPE subroutine is used by PHASE A to determine the 
type number for the statement. If the TYPE subroutine 
is able to determine the type number for the statement r 
it will place the number in the location IBUF2-C3} and exit 
If TYPE is unable to identify the statement , it sets an 
error indicator and returns to the calling routine. 



2.2.2-2.1 Entrance to TYPE 



Entrance to the TYPE subroutine is made by the following 
statement: 

CALL TYPE -[error flag} 

The subroutine statement which leads the TYPE subroutine 
is as fol 1 ows: 

SUBROUTINE TYPE €1X1} 

where 1X1 is the name of the formal parameter corresponding 
to ^error flag v . 

2.2.2.2.2 Initialization for TYPE 

Immediately after entrance is made to the TYPE subroutiner 
the following steps of initialization occur: 

1. The error flag is cleared. 

U-MX1 

2. Thp prirpnhhpRPB I pvd I tm I ly rpqistpr is c 1 e^fp'd. 

tl --> LTJi. 
J. The column counter is set to the character position 
in the source buffer at which scanning of the 
source statement begins. 
7— MSORSX 

2.2.2.2-3 Identification of Source Statement 

If the TYPE subroutine is able to identify the source 
statement as a replacement statementr it will place the 
appropriate type number in the holder IBUF2-C3} and exit. 
-CSee item 2-2.2.2.3.1} If the TYPE subroutine is unable 
to identify the source statement as a replacement it will 
search the ISTN table in order to obtain a tape number. 
■CSee item 2.2.2.2.3-2} 
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2.2.2.2.3.1 Replacement Statement 



o 



Q 



The TYPE subroutine begins a scan of the source statement beginning 
with the 7th character from the beginning. The necessary and suffi- 
cient conditions for identifying the statement as a replacement is 
as follows: 

The statement must contain an "=" sign not enclo sed in paren- 
thesis which is not followed by a comma not enclosed ii ■ p r_en- 
thesis. 

For purposes of scanning, the GETC subroutine is used to extract a 
single character from the source statement and place it in JCHAR. 
If the switch J BLANK is set to zero when a call is made to GETC, the 
space character, whose internal FORTRAN code = 46 is not treated as 
a significant character. Therefore given a source statement - 

• D 1 I = 1 ', 5 

the TYPE subroutine sees only the significant character and not the 
intervening spaces which causes it to appear as - 

D010I=1,5 
This ordinarily would be regarded as a statement in which - 
name = expression, 

except according to the previously stated rule for a replacement 
statement, the comma which is not enclosed by parentheses excludes 
the possibility of this being a replacement statement. 

Another special case occurs for the following statement: 

FORMAT 10HX=A(1,5) 

In this example TYPE encounters an "=" sign which is followed by 
a comma which is enclosed in parentheses . Ordinarily it would 
appear to the TYPE subroutine as a 

name = expression 

type of statement wherein - 

1. The name FORMAT10HX is illegal since it is 10 characters 

long, and - 

2. the expression consists of an element of an array, A(l,5). 
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Howevern as a result of scanning-i the TYPE subroutine 
encounters a numeric field terminated with an H- If 
the value of the numeric field is less than some arbi- 
trarily large number -Tin TYPE it is MOD} an assumption 
is made by TYPE that it has encountered a FORMAT state- 
ment with a Hollerith Field Specification. Therefore! 
TYPE counts characters according to the number preceding 
the "H" and beginning with the character following the 
"H". 

nt characters! the TYPE subroutine sets 
NK to 1- It then calls the GETC routine 
imes specified by the numeric field pre- 

Each time GETC is calledn the column 
eased by 1 . Since -CJBLANK3- = It spaces 
ollowing the "H" are regarded as signifi- 
Uhen the end of the Hollerith string 
JBLANK is reset to and the column 
tioned for the character following the 
ng. 

When slewing the Hollerith stringn the TYPE subroutine 
does not recognize the equal sign it encounters. There- 
fore! it will not erroneously regard a FORMAT statement 
as a replacement. 
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2.2.2.2.2.3.2 Other Statements 



The TYPE subroutine attempts t 
than replacements by searching 
in the ISTNl table contains the 
1 character to a wordn the cha 
Internal FORTRAN code. The na 
followed by the type number fo 
ceded by a pointer to the star 
ISTN table. If the space occu 
regarded as a one dimensional 
start of the next table entry 
script with which to reference 
which is the start position of 
the name of a statement has K 
entry has K+2 elements -Cor wor 
entry is as follows: 



o identify 
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-CISTN-C1» = 12 



pointer to next table entryi next 
entry begins at ISTN-C12}. 
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name 



type numbers type number is stored 
at -CISTN-C1»-1- 



The 1st ISTN table entry occupies storage reserved for 
elements ISTN-tl} through ISTN-C11}. The second ISTN 
entry begins at ISTN-C12}. 

The final ISTN table entry is for the end statement. 
It appears as follows: 



3M1 

E 

N 

D 

32 



= type number 



If the flag -CISPEO = D enabling PHASEA to process 
specification statementsn the entire ISTN table is 
searched in order to identify the source statement. 
If -CISPEO = 1 indicating that no subsequent specifi- 
cation statements will be processed-! the search of the 
ISTN table begins with the 1st entry containing a non- 
specification statement name. 

If the TYPE subroutine is able to identify a source 
statement as a result of an ISTN table search-/ the type 
number is read from the last word of the matching entry-i 
placed in IBUF2-C33-. An exit is made from TYPE. 

If the entry containing the END statement is encountered 
and no match is madei an error flag is set by - 

1 -» IXli 

and an exit is made from the TYPE subroutine. 
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2.2.2.3 PEGVS - The Equivalence Table Builder 

This routine is called by Phase A upon encountering an 
executable statement or the END line. EQUIVALENCE 
statements! which have been saved! in a different form! 
in the buffer KE(3Vn are merged into equivalence classes 
and stored! in a shorthand form! in the equivalence 
table KE&V- Each entry in KEt3V is four words . A symbol 
table pointeri followed" by three words containing 
subscript values ! if any. 

This routine has three logical parts or phases. In the 
first part it checks the subscripts for validity! and 
calculates a single value for the subscript! if any- 

In the second part ! all equivalenced variable or array 
parameters {called a chain! plus the single calculated 
value are moved into an intermediate table MEC3V by chain 
Each entry in HE(2V has two words ! a pointer to the name 
in the symbol table! and the single calculated value- 

In the third part ! each chain is sorted by increasing 

increment size! and the ordered chains arQ then moved 

to IE(3V. Each entry in IEtfV is two words and has the 
same format as ME(2V- 
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18. Merge sets of 
equivalence chains 
into equivalence 
classes. Start by 
finding unused chain 
for new equivalence 
class. 

19. Jump if end of entries 
to YES leg. ; 

20. Jump if this chain has 
not previously been 
removed. 

21. Move to next chain. 

22. Move chain to MEQV, 
deleting illegal 
entries. 

23. ITEMP1 is index to 
KEQV, LEQVX is index 
to MEQV. 

24. Back to 13 if not 
end of chain. 
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thing left in 
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31. Jump to 52 if chain 
has net been assigned 
to class. 

32. Jump to next chain. 

33. Jump to 21 if not 
end of chain. 

34. Is MEQV (MEQVX) 

an element in this 
chain. Jump to 20 
if so. 
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38. Set up IEQV by ordering 
increments correctly 
and deleting illegali- 
ties. Sort class by 
increasing increment 
size. 

39. Not end chain for 
primary scan, go to 
30. 




40. Not end of chain for 
secondary scan, go to 
30. 

41. Go to 763 if class 
empty. 

42. ITEMP1 and ITEMP2 
are pointers to MEQV 
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43. Set up class as incre- 
ment over base and find 
first common block. 

44. DO loop from to state- 
ment 34, ITEMP5 to ITEMP1 
times incremented by 2. 

45. Compare all pairs for 
legality and enter into 
IEQV. 
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46. DO loop to 110. 
ITEMP6 = I TEMPO, 
ITEMP5,2. Jump if 
pair has been deleted 
to DO loop counter. 
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48. Set symbol table entry 
to correct common block, 
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49. Multiple test is: 
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50. DO loop to 35 with 
induction variables, 

ITEMP7=ITEMP7,. 
ITEMP5, 2. 

Jump if item been 
deleted to 35. 

51. Test is: 

MEQV(ITEMP6) ± 
MEQV(ITEMP7) true 
means no. 

52. Test is: 

MEQV(ITEMP6+1) = 
MEQV(ITEMP7+1) true 
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53. Print out names for 
MEQV(ITEMP6) and 
MEQV( ITEMP7 ) . 
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54. Jump to 31 to process 
more classes. 

55. Prepare to set up 
IEQV tables. 

56. Jump to 41 if class 
contains two or more 
names. 
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57. Set up number of 
elements in this 
c lass. 

58. Set end of class 
flag. 

59. Return if all equiva- 
lence entries have 
been processed. 
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2.2.2.4 Subroutine PLABEL 
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PLABEL is called by PHASEA to process the label 
field of an input statement. If the label 
field is blank, the routine returns immediately 
with ISORSX = 7. 

Otherwise, it uses the routine RDLABL to read 

the field. If the field contains a label, 

a check is made to see if this label is 

currently in the symbol table (SYMTAB) . If i' 

is not, it is entered there by a call to STORr:. 

If it is, a check is made to see if the label 

has been previously defined. If it has, an 

error is output and the routine exits with ILLABL = O 

and ISORSX = 7. 

Otherwise, ISNOL of the SYMTAB entry of this 
label is set to the current statement number, 
thus setting the label as defined. 

The routine then exits with ILLABL equal to 
the SYMTAB index of the label entry, ISORSX = 7 
(the next column to process), IBUF2(5) = the 
SYMTAB index for this label, and IBUF2(2) set 
to indicate a labelled statement (negative 
statement number) . 
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a.B-E-M-1 Subroutine RDLABL 

RDLABL is called to read a label- It reads the label and checks 
to see if it is a number. If it is notr it prints out diagnostic 
SH- If the label is legal r RDLABL packs the label into JSYfl and 
returns. 
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2-B.S-S Option Selection - Subroutine OPTIONS 

OPTIONS is the routinen written in 1700 assembly languagen 
which processes option selection in 17DD Mass Storage 
Fortran. It is entered from G0A« Upon entrance! OPTIONS 
clears the option selection holders in the DATA block 
•CIR-i IK-i IPi IA-, IL-i IM-. IXLGO}-, backgrounds its input buffer 
and solicits input from the standard input device. If there 
was no * OPT* cardn the standard options LPX are assumed 
and the option selection holders in the DATA block IPt IL i 
and IXLGO a.r& set 7*0. If no options are listed on the 
* OPT* cardn OPTIONS solicits input from the input comment 
medium by outputting OPTIONS and waiting for a carriage 
return. 

Upon receipt of a carriage return or finding options on 

the * OPT* cardn OPTIONS interrogates each character input. 

If it is recognizable -CRiKtPtAiLtMiX} the corresponding 

holder is marked selected -C^0>. Unrecognizable characters 
are ignored. 3 

OPTIONS then returns to GOA. 
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2.2.2.L, Subroutine OUTENT 

OUTENT is the subroutine used to output a record to 
the scratch output device. If an error has occurred 
in the statement! it is changed to a CONTINUE and the 
error-in-statement switch -CIERR} is cleared. 

OUTENT calls subroutine IOPR -Centry point WRITE* to 
perform the output. 
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2.2.3.2 Subroutine ENDDO - The DO Loop Termination Routine 

ENDDO is called by PHASEA upon completion of processing 
of a labeled statement and by I0SPR to terminate DO 
loops and complete the L00PT table- 

If there are no DO loops openn ENDDO exits- If the 
label of the current statement terminates the innermost 
open D0t an ENDDO entry is output and the L00PT for this 
DO loop is completed. This DO entry is then erased 
from the L00PT table 00 nesting! and the check of label 
vs. innermost DO is repeated. 

When ENDDO encounters an open innermost DO which does 
not terminate at this statement labeli the routine 
searches the rest of the L00PT table to ascertain that 
no outer DO loops terminate here- If any doi an error 
is output and the erroneous entry is erased from L00PT- 

If any DO loops have terminated at the current statement 
labeln ENDDO checks the statement associated with this 
label- If the statement is of a type illegal for DO 
termination an error is output and the statement changed 
to a CONTINUE. 
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2.2.3-3 Subroutine SAVEID 

SAVEID was written to allow the use of up to 47 characters 
of comments {copyright statement! on the source routine 
identification card which will be output in a format 
similar to Macro Assembler produced binary NAN blocks. 



The format of th 
characters of co 
source routine i 
FUNCTIONn or BL0 
no slash and no 
binary NAM card 
If there is no s 
cardi diagnostic 
card will contai 
be used. 



e binary NAU card includes up to 47 
mments preceded by a slash from the 
dentification card -CPROGRAMn SUBROUTINEn 
CK DATA> on the binary NAM card- If 
comments appear on the source cardn the 
will be punched entirely with blanks- 
lashn but comments do appear on the 

#hb will be issuedn and the binary NAM 
n blanks. A continuation card may also 
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General Pass 1 Routines 

Symbol Table Manipulating Routines 
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CALL SYMBOL 

Upon exitn if the common variable ISYMD is zeron the 
symbol is not in the table. If ISYMD is non-zero-i the 
COMMON variable ISYMX indexes the symbol entryn that 
isn each item in that symbol's entry may be obtained as 

item name -CISYMX* 

If ISYMD is zeroi ISYMX points to the next available 
symbol table entry. There are two versions of SYMBOLn 
as follows: 

Phase A: If SYMTAB paging is necessaryn only the current 
page is written on disk before being overlaid} later 
pages are simply overlaid. SYMBOL accomplishes this by 
setting ISYMX negative before calling 6ETSYM after the 
current page has been written- 

Phase B: If it is known that the name is not in the 
symbol table-, SYMBOL may be called with ISYMX negative. 
In this case SYMBOL does not search the symbol table 
but returns with ISYMX pointing to the next available 
entry. 

Subroutine STORE 

Assume that JSYM-CUn JSYM-C2>t and JSYM-C3} are filled, 
probably by GETFt but possible by the programmer himself. 
Also assume that ISYMX is pointing to the next available 
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2.3.1.3 
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entry in the symbol table. SYMBOL will set ISYMX in 
this manner if an entry is not in the table. Then the 
symbol in JSYM will be inserted into the symboJL table. 
ISYNN {current size of symbol table} will be incremented 
If JSYM-C3} is 2142^ or 2525^-, or if JM0DE is h for 

double precision constants! ICLASS and ITYPE will be 
set. Issue the statement 

CALL STORE 

Thusn the normal sequence of events leading to an 
insertion in the symbol table is 

CALL GETF 

which then does 

CALL SYMBOL 

to see if the field is in the symbol table. Upon 
return from GETFi the calling program does 

CALL STORE 

to insert the field in the symbol table if it is not 
in it already. 

Subroutine GETSYM 

GETSYM insures that the symbol table page requested by 
ISYMX is in coren updates the current symbol table page 
holder -CISYMPO if necessary! and adjusts ISYMX to the 
in-core subscript of the desired symbol table entry 
•CISYMX = ISYMX - ISYMP*. 

There are five versions of GETSYMn distinguished as 
follows: 

Phases A and B: 

If ISYMX is positive on entry and paging is necessary! 
the current symbol table page is written on disk before 
the desired page is read. If ISYMX is negative! it is 
set positive and the current symbol table page is not 
saved. 

The symbol table page size is TbO words. The current 
ISTABX page -CTb words! is read and written along with 
the SYMTAB page! therefore eleven sectors are read and 
written for each page. 

Phase C and Phase D/E 2. 0B version- 

The symbol table page size is 2>400 words. When reading 
and writing the large page every eleventh sector {for- 
merly an ISTABX page} is skipped. The current symbol 
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table page is always saved on disk before a new 
page is read. 

Phase D local 1, 2-DA version: 

This version reads and writes the compressed symbol 
table with a page size of 1000 words (see Assembler 
Output Phase, section 5.2). The current symbol table 
page is always saved. 

Phase D local 2, 2. DA version: 

This version reads the normal symbol table with a 
page size of 480 words. Every eleventh disk sector 
is skipped. The current symbol table page is never 
saved. 

Phase E,2. DA version: 

The symbol table page size is 4 80 words. Every eleventh 
disk sector is skipped. The current symbol table 
page is always saved. 
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2.3.1.4 Subroutine CNVT 



CNVT packs a six-character variable name into two 
words for storage in the symbol table. Only alphanu- 
meric characters and blanks can be packed. CNVT 
packs the leftmost three characters into the first 
word of JSYM and the rightmost three characters into 
the second word as follows: 

Let x, y, z, a, b, and c be the internal Fortran codes 
for X, Y, Z, A, B f and C. Then the name XYZABC is 
stored as: 

JSYM (1) = 1521x + 39y + z 
JSYM (2.) = 1521a + 39b + c 

Blanks, which are 46 in internal Fortran code, are 
charged to 38 before packing. 



2.3.1.5 Subroutine SYMSCN 



SYMSCN gets the entry following the current entry from 
the symbol table. Upon entrance, ISYMX = requests 
the first symbol table entry, and ISYMX = (an in-core 
symbol table subscript) requests the entry (ISYMX + f~^\ 

ISYMP + ISYMFL) . Upon return, ISYMP = 1 says there are ■ ^ 
no more entries. GETSYM is called just before return. 
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Input parameters: ISYMX (in-core subscript), ISYMP 
set to current entry. 

Output parameters: ISYMX (in-core subscript), ISYMP 
updated to next entry. 

There are four versions of SYMSCN. The phase D 
local 1 2- DA version references the compressed symbol 
table (see Assembly Output Phase, 5.2). The other 
three versions differ only in the dimension of the 
array SYMTAB in common. 
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2.3-2 Field Processing Routines 

2.3.2.1 Subroutine GETF 

GETF is the subroutine which extracts a field from the source 
input in ISORS*. The column at which to start is given in 
ISORSX*. If the field is alphabetic {first character is A-Z*n 
the field is placed left- justified in JSYM and JHODE set to 
2. JESldT is set to indicate the implicit type of the name 
■CI = integern 2 = real}. If the field is a fixedn floating 
pointn or double precision floating point constantn it is 
converted and placed in JSYM. JHODE is set to indicate the 
mode of the constant. Integer constants are placed in JSYFK1} 
converted as if they were decimal unless OCT £ D upon en- 
trance to GETFn or if the constant is preceded by $ . If 
OCT t D-i an integer constant is considered octal and non- 
integer fields are considered errors. OCT is set to zero 
upon exit from GETF. If the constant is preceded by £n the 
constant is considered hexadecimal and the only permissible 
digits are D-Tn A-F. For integer constants: JSYH-C2} = On 
JSYH-C3} = 2M2Mif Real constants are placed in JSYM-C13- and 
JSYN-C?} and JSYM-C3} is set to 2525if Double precision float- (^ 
ing point constants are placed in JSYM-ClD-n JSYM-C23-1 and ^-^ 

JSYPK3} and common variables JHODE and JFLOT are set to h and 
3 respectively . 

If the field is nulln JHODE is set = D. 

SYMBOL is called for alphabetic or numeric fields if NERR = D 
upon entrance to GETF. 

The field terminator is placed in JTERH. 

JTERH settings for 3 character logical operators are: 

-AND. = AD 
•NOT. = NT 

Error messages will be printed as errors are encountered if 
NERR = D upon entrance to GETF. 

NERR is set to zero upon exit from GETF. 

JERR = D - no error encountered in field switch 
JERR 7* Q - error encountered 

*If AND -dFLAGSnSlD} is not zeron input is in IBUF2 r ^ 

■CIBUF2X}. In 2-DAn there are two versions of GETF. {J) 
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GETF switches 



JESUT 



o 



JFLOT 



JOCHAR 

J01 

JCHAR 

JE 

JE1 

JCT 

JCT1 



constant analysis indicator 

digits only encountered 

1 decimal point encountered 

2 E or D encountered 

3 exponent is + 
M exponent is - 

mode of constant 
- integer 

2 - real 

3 - double precision 

character count 

overflow indicator for constant conversion 

character being looked at 

fraction count 

exponent count 

JSYN character indicator 

JSYM word count 



If an error is encountered and NERR = On an error message 
is output and depending on the severity of error-i JERR may 
be set ?* . If JERR ? upon exit from GETFn the contents 
of JSYM and JMODE arQ meaningless. NERR is set = upon 
exit from GETF. 



INPUT Parameters 
OCT 



ISORSX 

ISORS 

NERR 



convert integer constant as octal if OCTj^O 
If field is not an octal integern an 
error is assumed- 
column of input at which to start 
source input table 
7 s says don't print errorsi don't 
call SYMBOL. 



O 



OUTPUT Parameters 

JSYM 

JTERM 

JMODE 



3 word holder for field 

1 word holder for field terminator 

mode of JSYM 

= null 

? - alphabetic 

3 = integer - only JSYM-C11 is significant 

S .= real - JSYfl-Cl} and -CJSYrK2} contain 

value 
b = double precision - JSYM-CliK . dSYN-C2}-, 

JSYM-C3} contain value 
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ISORSX updated to reflect start of next field 

or end of input 
JERR error switch 

JESWT for driODE = 2-. implicit type of JSYM 

Ji = integer 

2 = real 

1700 INTERNAL CODE 

CHARACTER CODE {Decimal* 

digits 0-T D-T 

letters A-Z 10-35 

dollar sign 5 3b 

period - 37 

plus sign + • 3fi 

minus sign - 3T 

equal sign = . MO 

left parenthesis -C m 

right parenthesis > ............... M2 

comma i . . . . M3 

slash / MM 

asterisk * MS 

blank ^3 " * Mb 

End of statement /\ . • • M7 

single quote . f ' - MA 

2.3.2-2 Subroutine GETC 

GETC gets one character from ISORS. The column to get is 
given in ISORSX. If JBLANK is zero upon entrance to GETCt 
blank characters are skipped. If AND -CIFLAGS-i^lO} is not 
zeron the character is from IBUF2 -CIBUF2X}. In 2.0A there 
are two versions. JBLANK is not initialized upon exit. 

INPUT Parameters 

ISORSX card column at which to start 
ISORS source input table 

JBLANK present blanks switch. = skip blanksi 

7 s - present blanks 



O 



O 
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ISORSX updated 



2.3.2.3 GPUT 



O 



o 



GPUT packs the character in JCHAR into the three word buf- 
fer JSYI1 into the fl bit byte signaled by the current setting 
of JCT1 {character number}. 

The characters are packed two per word. 



CA 130-1 REV 10-07 



o 



o 



o 



CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER 



DIVISION 



O DOCUMENT CLASS _1HS 

W PRODUCT NAME 1?0D HASS STOR AGE FO RTRAN 



PAGE NO. 



2-115 



PRODUCT MODEL Nin C005*5.1 A/B 



MACHINE SERIES 



17DQ 



GETF 

Page 1 of l.H 



k 3 



o 



( GETF ■) 



INITIALIZE 



GETC 
GET A 
CHARACTER 



I = 
JMODE+1 



SET JESWT 
=3 EXPONENT 
IS POSITIVE 




SET JESUT 
= 4 EXPONENhi 
IS NEGATIVE 
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GETF 

Page 2 of 1M 



LETTERS 





}V HEXADECIMAL 





SET FIELD 
MODE SUITCI- 
TO INTEGER 



SET FIELD 
MODE SWITCH 
TO HEXADECIMAL 




ASTERISK 




SET INTEGEf! 

CO-NSTANT 
FLAG IN FIE 
TAB LE — 




D 




SET FIELD 
TERMINATOR 
= JCHAR 



SET JCHAfl 
TO BLANK 
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GETF 

Page 3 of m 
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Q 




DECREASE 
CHARACTER 
COUNT BY 

an 



GPUT 
PACK CON- 
TENTS OF 
JCHAR IN 
FIEUJ; IAHI1 E 




SET FIELD 
TERMINATOR 
= JCHAR 





SET FIELD 
TERMINATOR 
= JCHAR 





SET FIELD 
MODE SWITCH 
TO ALPHA 



JL 




Q^U 



SET FIELD 
CHARACTER 
COUNT = b 



SET IMPLIED 
TYPE SWITCH 
TO INTEGER 
— 'f&ftg-A BLE ■ 





DECREASE 
CHARACTER 
COljJNT BY 



i 



GPUT 
PACK CHAJR 
IN FIELD 
TABLE 




SET IMPLIE 
TYPE SUITC 
= REAL 

VARIABLE 
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GETF 

Page M of m 




PACK 2 CHAR 
INTO FIEL 
TERMINATO 




JTERM= 
JTERM*25b+ 
JCHAR 




SET FIELD 
NODE SUITC 
TO INTEGER 





PACK JCHAlt 

INTO TEM- 
PORARY FIBLD 




SET FIELD 
CHARACTER 
COUNT TO 
^ 



SAVE JCHARi 
IN FIELD 
TABLE 





Z2Mi 



SET ERROR 
INDICATOR 
TO 1 




SET FIELD 
TABLE TO 
D 



SET SERIOUSE 
ERROR OCURRED 
FLAG TO 1 




SET FIELD 
MODE SWITCH 
TO ERROR 
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GETF 

Page 5 of m 



O 



o 




GETC 
GET A 
CHARACTER 




PACK HEX 
CHARACTER 
IN FIELD 
tari r 
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GETF 

Page h of m 




A7 





DIAG 
-CI} 





SET ERROR 
INDICATOR 




SET FIELD 
MODE SU IT C 
TO ERROR 



SET SERIOUKE 
ERROR OCURRED 
SWITCH 





PACK A 
CHARACTER 
INTO FIELD 
TLKHIMATOK 



fl* 




GETC 
GET A 
CHARACTER 



PACK 2nd 
CHARACTER 
INTO FIELD 



TERHI 



NATOR 



GETC 
GET A 
CHARACTER 



JTERN = JCHAR 
* 2SL 
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JTERM=JCHAR*25b 



PACK A 
CHARACTER 
INTO FIELD 
TFffriTMATOI? 



GETC 
GET A 
CHARACTER 






JTERM=JCHAR*25h 



PACK A 
CHARACTER 
INTO FIELD 
■Tfrftftf NATOR 




MACHINE SERIES 



17DD 




1. 



GETC 
GET A 
CHARACTER 



GETC 
GET A 
CHARACTER 





GETF 

Page 7 of 1M 





JTERM = JCHAR 
* 25b 



PACK A 
CHARACTER 
INTO FIELD 
TERMINATOR 



PACK A 
CHARACTER 
INTO FIELD 
■T ERMINATOR 




JTERM=JCHAR 
*2Sb 



X 



GETC 
SET A 
CHARACTER 
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GETF 
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SET CHARACTER 
INTO FIELD 
TABLE 



DECREASE 
CHARACTER 
COUNT BY 

3r 






DIAG 
-CM} 






sHl£ 





SET FIELD 
NODE SWITCH 
TO INTEGER 




SET CONSTANT 
ANALYSIS 
INDICATOR 
DECIMAL POII 
■ ENCOUNT - &RJ a> 



TO 

NT 




^ ~iiH223) 



SET CONSTANT 
NODE TO 
REAL 
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GETF 
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PACK CHARACTER 
INTO TEMPORARY 
FIELD TABI 




SET CONSTA 

OVERFLOW 

SWITCH 



NT 



SET CONSTANT 
MODE TO 
DOUBLE PRC 



CISION 



!j 




"i 



DECREASE 
FRACTION 
COUNT BY 1 




PACK A 
DIGIT INTO 
EXPONENT 
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GETF 

Page ID of m 




SET CONST, 
ANALYSIS 
INDICATOR 
TO 5i 



ANT 





SET CONSTANT 
ANALYSIS 
INDICATOR 
1SL *> 





ADD 1 TO 
FRACTION 
COUNT 




SOURCE 
POINTER 




SET CONST 
ANALYSIS 
INDICATOR 
-£4 



ANT 
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DOUBLE 
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\NT 





GETC 
GET A 
CHARACTER 




SET CONST, 
ANALYSIS 
INDICATOR 
T^rSt 



AMT 



SET CONSTA 
MODE TO 
REAL 



sJT 



-*(T) 




RESTORE 

SOURCE 

POINTER 



4JL 



DOT* .' 
— OJCHAR 




MACHINE SERIES. 



17QD 



GETF 

Page 11 of 1M 




SET CONST, 
ANALYSIS 
INDICATOR 
TO ,1 



/.NT 




SET CONSTA" 
MODE. FLAG 
TO REAL 



jy 



NT 



PACK INTEGJER 
CONSTANT 
INTO FIELD 
TABLE 




5L 



n ^ ^ 

SECOND WORD 
IN FIELD 
TABLE 
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EXPONENT 
C0UNT= 
- EXPONENT 
1 EF- 



FRACTION 
COUNT + 
EXPONENT 



CdU 



WN 



INT 
COUNT 



DXPT 

NORMALI 
CONSTA 



;ze 



TEMPORARY 
FIELD TAB 





DIAG 
l OVERFLOW 





DIAG 
UNDERF 



LCU 




FIELD riODt 
SWITCH = 
REAL 



SET FIELD 
TABLE FLAG 
TO REAL 
COi N ST AN 





FIELD riODd 
SWITCH = 
DOUBLE 
PRECISION 




n 
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SET FIELD 
TABLE TO 
327b?-. 




YES 




DIAG 



3 




GETF 

Page 13 of 1M 




MODE OF 
CONSTANT 
= REAL 



A 



FIELD [10DE] 
SWITCH = 
REAL 





NODE OF 
CONSTANT = 
DOUBLE 
.PRECISION 
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GETF 

Page 1M of 1M 




FIELD' MODE 
"SWITCH = 
DOUBLE 
PRECISION 





SAVE CHARA4 
IN FIELD 
TERMINATOR 



TER 



SOURCE 
POINTER 



GETC 
GET A 
CHARACTER 




SOURCE 
POINTER 



<St 




CLEAR 
OCTAL 
FLAG 



CNVT 
'ACK 3 UOR 
r IELD TAB 
TO 2 WORDS 




-E 




FIELD 

MODE 

IS ALPHA 



FIELD 

MODE 

IS ERROR 



CLEAR 
ERROR 
FLAG 



RETURN 




-> 



SYMBOL 
SEARCH 
SYMBOL 
TABLE 



Hunk 
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2.3.2.4 Function IGETCF 

IGETCF is used by subroutine GNST to get a specific character from 
an input string. 

Input parameters: 

IMAGE - location of start of string 

ICOLMN - character within string 

2.3.2.5 Subroutine STCHAR 

STCHAR is used by subroutine GNST to store an eight bit character 
into a character string. 

. Input parameters: 

IMAGE - location of start of string 
ICOLMN - character within string 
ICHARC - character to store 
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WORD = 
COLUMN ,+ 1 
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2.3.3 Special Field Handling Routines 

2.3.3.1 CONSUB 

Given an element of an array-t the CONSUB subroutine is used 
to compute the increment from the subscripts of the element 
in order to reference the location of the element in the 
array» The CONSUB subroutine requires that subscripts be 
integer constants. It computes the nth element of an array* 

Given the array defined by 

DIMENSION A -CI,JiK>i 
and the element 

A -CI1-, Jin Kl> 
the increment is computed and recorded in IVCFLG as follows: 

IVCFLG = •CK1-1>*I*J+-CJ1-1>*I+I1 

The resulting value in IVCFLG is such that 

A-CIln Jin Kl> = the IVCFLGth element in the array 

A-CIn Jn K>. The original dimensions of the array A 

-Gin Jn KJ are obtained from an entry in the ISTAB table. 

2.3.3-1.1 Errors 

The CONSUB subroutine gives diagnostics for the following 
errors: 

1. An element with no subscriptsn 

2. an element with more subscripts than the array of 
which it is a member has dimensionsn . 

3. an element with a subscript which exceeds the value 
of the corresponding dimension for the array of 
which it is a membem 

M . an element with a subscript which is something other 
than an integern and 

5. a format error in which the subscripts are not sep- 
arated by commas and/or not enclosed in parentheses. 

Errors In 2i "4 a 5 will cause CONSUB to terminate operation. 
Following the error indicationn the holder IVCFLG is set to 
zeron and an exit is made from CONSUB. Error 3 will not 
cause the CONSUB operation to terminate following the error 
indication - 
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2.3.3.2 CFIVOC - Checks for Integer Variable or Integer Constant 

CFIVOC reads the next field in ISORS. If the field is an integer 
variable or constant, the field is stored in the symbol table (if 
necessary), the type set to integer and the class set appropriately. 
IVCFLG is set to signal the type of field 

= not integer variable or constant 

1 = constant 

2 = variable 

2.3.3.3 CKIVC -Checks for Integer Variable or Constants and Provides Diagnostic: 

CKIVC calls CFIVOC to read next ISORS field. If the field is neither 
an integer variable or an integer constant (IVCFLG = 0), diagnostic 63 
is output. 

2.3.3.4 CKNAME - Checks for Integer Name 

CKNAME calls CFIVOC to read the next ISORS field. If the field is not 
an integer name (IVCFLG = 2), diagnostic 64 is output. 
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2.3.4 Diagnostic Handling Routine 

2.3.4.1 Subroutine DIAG 

DIAG is a multiphase subroutine which outputs error 
diagnostics. The error message output is of the form: 
*C E,S xxxxxx 

Where C is F or N for fatal or non-fatal 

E is the error number 

S is the offending statement number 
xxxxxx are six characters from the source 

input buffer surrounding the current 

setting of ISORSX 

The input to DIAG is one packed parameter giving 
the error number in bits 11-0 and flags in bits 
14, 13 r 12. 

The flags are: 

Bit 14 = print statement number 

1 = don't print statement number 

Bit 13 = fatal error 

1 = non-fatal error 

Bit 12 = Print ISORS characters 

1 = Don't print ISORS characters 

If this is a fatal error, IERR is set ^ 0. 

If DIAG is entered with JMODE = 4.(errpr mode in 
GETF) , no error is output and JMODE is set = 0. 
This is to minimize the output of redundant errors. 

If this is a fatal error, the "X" option flag 
IXLGO is cleared and bit 3 is set in XFLAGS. 
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2.3.4.2 Subroutine CONV 



CONV converts a binary integer to external code (ASCII) and puts 
the result in an output buffer, one character per word. Its input 
parameters are: 

IX 1 number to convert 

1X2 output buffer - six words long 



CONV is coded in assembler. The version of CONV 
used in PHASE A cannot convert negative numbers, 
while the version used in PHASE E can convert any 
binary integer. 
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2.3.4.3 Subroutine PACK 

PACK packs a buffer which comes to it one character 
per word into the form of two characters per word. 

Input parameters: 

1X1 Location of buffer 

1X2 number of words to pack 

2.3.4.4 Subroutine PUNT 

PUNT is called when a catastrophic table overflow 
occurs in the compiler. It outputs error diagnostic 
100 and calls SKIPIT. The Phase A version slews the 
input to an END card before calling SKIPIT. 

2.3.4.5 Subroutine PRNTNM 

PRNTNM is called by subroutine PEQVS when an illegal 
equivalence chain is encountered. PRNTNM converts the 
name of the illegal variable to external code (ASCII) 
and outputs it through the use of subroutine IOPR 
(entry point WRITE) . 



r~> 



C A I ja- 1 RE V 10-IS7 



CONTROL DATA CORPORATION 



DIVISION 



c 



DOCUMt NT CLASS 
PRODUCT NAME . 



IMS 



17QQ MASS STORAGE FORTRAN 



PAGE NO. 



PRODUCT MODEL N^ CDD5 V.5.Q 



MACHINE ScRiES- 



1700 



S-1S1 



c 



u 



(mc* p-j JJ) (put/f [n„cf,]) Q^JMihIa) 



Pack J" ouoAs 

trom ffJ- to 
/?2 fjr*t*.T 



( /f£ TV/fA/ J 



JMOVF ~0 



3>i44 



' :rrloLj 



OK/ 

F, J- oo 



to E*jy 

jre. co ra 



<: 



5KlflT 



error ex/ f~ 
fo 6)0 routine, 
^esfdrf Aase fll 



me s s*-<3 £■ 



Op Ti o n ) 



C A i J8- 1 «C V 10>67 



CONTROL DATA CORPORATION 



DIVISION 



DOCUMFNT CLASS — 



IMS 



PAGE NO. 



PRODUCT NAME 1700 MASS STORAGE FORTRAN 

PRODUCT MODEL NO CDD5 V.5. MACHINE SERIES 170 ° 



Q/U/TtfM (MJ*J) 






C>ETSYM 
XSYMX=A//?M 







J1TBMP (z)~t 



\{TBMP = 
e>-f name- 



T 





KTBMfi- 



X./H3 ^=20 



© 



© 



NHoLD (l-£) 
i hfo 

M9AI3UF (1-1) 



W/?lT£ 



\ 



fi/jAlSUFO-tj) 



Q ftETWU^) 



2-15E 



C A 1 3P- 1 PE V 10-67 



CONTROL DATA CORPORATION 



U 



— . DIVISION 



uocumln r CLASS ._ _JL M _s 

PRODUCT NAME 1700 MASS STORAGE FORTRAN 



PAGE NO. 



2-153 



PRODUCT MODEL mo CDD5 V.g.Q 



KTEMP/\SZ\ 




<r 



XTEMP (J) 



4- 




Z3CJ?TB(M+±) 




E 




c 



±. 



XTEMP (3) 
JT£MP(z)%39 



J= T+J- 



MACHINE SERIES 17Q0 




"> 




HTB/UJP - 
XT£Mf>(±)#l53Ll 







D 



■^ 



I=X+J. 




C A I 36- t REV 10-«7 



CONTROL DATA CORPORATION 

- DIVISION 

I'lii iint-Mi i I /\cc; IMS r.-v.-t iif. 2- 154 

muni', i nvic i "7 1~5 £» MARS. PMMRAtiR Filtt'lRAM 

m..|.i., n n.'. ^flUS VlE.U I'lAi .Hlh t ofch Ice l/i!!? 



2.3.4.6 Subroutine IOPR 

This assembly- language routine performs all I/O for the com- 
piler. In order to optimize core and disk use, there is 
a separate version of IOPR for each phase of each -C2.0A 
and 2. DB> compiler; but all versions share the following 
functional description. 

Entry points 

IOPR is the entry called by GO at the start of each phase. 
It allocates the disc scratch area, initializes pointers, 
and begins input. 

READ and WRITE perform both unit record and mass storage 
I/O. Unit record I/O in phase A is buffered; records on 
the scratch files are packed by WRITE and unpacked by READ. 

RESET is available in phase D/E; it performs a logical 
"rewind" of a scratch file. 

EXIT issues an EXIT request to MSOS. 

Disc allocation 

The speed of the compiler is highly dependent on the place- 
ment of its files within the MSOS-allotted disk scratch area 
This area is allocated starting at the first sector of the 
first cylinder beyond the current top of the load-and-go 
file; seek operations are minimized by never allowing a 
file to "break" between two cylinders. 

The first portion of this area is allocated for local files. 
(Even though the present phase may not have locals, this 
area must be stepped over in order to find the symbol table 
and scratch files.) The partitioning of this area is 
"customized" for each phase, generally leaving each file 
several sectors more than it requires to allow for later 
expansion. 

Following the local files, an area is assigned to the 
symbol table. Since the table is organized in eleven- 
sector "pages", this area starts lln sectors from the 
bottom of a cylinder and overlaps onto the next cylinder. 
The disk allocation is such that only programs with a 
very large number of symbols will use any of the SYMTAB 
pages on the next cylinder, and so that the most-used 
local files will share the "prime" SYMTAB cylinder. 
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Aft or the symbol table, the remainder of the scratch area 
is available for the two scratch files. These files, like 
the symbol table, are organized in "pages" of several 
sectors; in order to minimize length of seeks, pages of 
f i Le 1 are interleaved with pages of file 2. No effort 
is made to keep scratch pages from crossing cylinder 
boundaries, since the "broken" page would be referred to 
only once per phase. 

Scratch file packing 

To minimize disk usage, the two scratch files are packed 
into streams of iogical records without regard for sector 
boundaries. (The first word of each logical record i on- 
tains the total record length.) The files are then broken 
up into "pages" of several sectors; a "page" being as much 
of the file as will fit into core. (In several cases, a 
phase keeps only part of a page in core at a time; the 
page size is chosen for maximum efficiency over all four 
phases of a compiler version.) A call to READ causes 
copying of a logical record from the unpacking area to 
the user-designated address; if the end of the unpacking 
area is reached before the entire record is moved, then 
the next page of the input file is read into the unpack- 
ing area and the copying proceeds. A call to WRITE simil- 
arly loads the output packing area, which is similarly 
emptied when full. (A special call is provided to force 
the output onto disk at the end of each phase.) 

It is important to note that on scratch-file I/O, the logical 
record length is controlled only by word 1 of the record; 
The record- length parameter of the call to READ or WRITE 
is ignored. 

Unit record buffering 

Phase A unit record I/O... source statement input and listing, 
is buffered, so that phase A execution time is overlapped 
as much as possible. Space is provided in the phase A 
IOPR to hold one line of input and one or two lines of out- 
put; each line is associated with an FREAD or FWRITE request. 
When the IOPR entry is called, at the start of a phase, it 
activates the FREAD request that is to fill the input buffer. 
Thereafter, a call to READ will: (1) wait until the request 
is unthreaded; (2) copy the record just read, from the buffer 
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to the user's area; (3) reissue the FREAD request. 
Similarly, a call to WRITE waits for a buffer to be 
available, fills it, issues an FWRITE request for it, 
and returns. 

The READ routine does not reissue the FREAD request if 
the buffer contains an END or MON card. The buffer is 
blanked before the request is issued. The requested 
record length is 41 words so that, regardless of actual 
record length, the operating system will store the actual 
last-word-address-plus-one outside the area to be pro- 
cessed by Fortran. 

Page ejection 

If the list output device is not a teletype or paper 

tape punch, IOPR issues a page-eject control ($3120) after 

each 60 lines of output. The maximum and current number 

of lines per page are held in labelled common and are set 

by the phase A block data subprogram and subroutine PHASEA, 

respectively- PHASEA is responsible for issuing page ejects 

before the source and assembly listings. f 
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2.M STATEMENT SPECIFIC PHASEA ROUTINES 

2.M.1 DIMENSION Statements - Subroutine DIMPR 

Subroutine DIMPR processes dimension information. It will 
be called directly by PHASE A to process DIMENSION state- 
ments or as an auxiliary routine when processing COMMON 
or Type statements. 

Input to DIMPR is the ISORS image of the statement being 
processed and the current setting of ISORSX within this 
buffer . 

DIMPR builds entries in the symbol table -CSYMTAB}-, defin- 
ing the arrays it processes. Entries are set to dimensioned 
arrays -CICLASS ='1 T IDIM = no. dimensions-, ISTABX = index 
into ISTAB to get dimensions!. The dimensions are entered 
in the ISTAB table. If a COMMON statement is being pro- 
cessed! ICOM {common block indicator! and ICOMTX {thread of 
variables and arrays in common block! are set in the symbol 
table and ICOMBX in the common table -CICOMT! is updated to 
reflect the current thread of the chain of variables and 
arrays in a specific common block. 

If a Type statement is being processed-, the symbol table en- 
try is set to the appropriate type -CITYPE = 1 for INTEGER 
or SINGLE-, 2 for REAL-. 3 for DOUBLE-, ISNGL = 1 for SINGLE}. 
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2.4.2 COMMON Statements - Subroutine CONNPR 

■ I 

COMMON Statements are processed by the routine COMNPR. The common ' 

block is entered in ICOMT, if it is not already there. DIMPR is 

called. DIMPR returns to COMNPR to search for another common block. 
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2.4.3 TYPE Statements -i Subroutine TYPEPR 

The routine TYPEPR is entered. This routine, in turn, calls 
DIMPR. DIMPR enters the symbols, with their .appropriate type, 
into the symbol table. 
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• t 
2.4.4 BYTE, EQUIVALENCE Statements - Subroutine BYEOPR 

The BYEQPR subroutine is used to process BYTE, SIGNED BYTE and 
EQUIVALENCE statements. Upon entry to BYEQPR, the type number for 
the statement being processed is contained in IBUF2(3) as follows: 

(IBUF2(3)) = 8 for BYTE statement. 
(IBUF2(3)) = 9 for SIGNED BYTE statement. 
(IBUF2(3)) = 10 for EQUIVALENCE statement. 

2.4.4.1 KEQV Table 

BYEQPR generates entries for the KEQV table as a result of pi d- 
cessing either of the three statements previously mentioned. 
Prior to entering BYEQPR, KEQVX contains the word length for the 
information in KEQV, and KEQVS contains the storage capacity for 
KEQV. The KEQV table along with KEQVX are initially cleared to 
zero as part of the initialization procedure of the PHASE 1 sub- 
routine. 

LEQVX is set to the value in KEQVX immediately upon entry to BYEQPR. 
Entries are made to KEQV using the storage index LEQVX. There are 
four words per entry to KEQV. For each entry made to KEQV, LEQVX 
is increased by the number of words per entry -- ■ ■ 

(LEQVX) + 4 — > LEQVX. 

Entries made to the KEQV table have the following format: 

W0RD1: pointer to symbol table entry containing name of variable 

W0RD2: 1st subscript or if subscript not specified 

W0RD3: 2nd subscript or if subscript not specified 

W0RD4: 3rd subscript or if subscript not specified 

Consecutive entries made to KEQV correspond to related elements in 
the source statement. (Refer to item 2.4.4.2 for an EQUIVALENCE 
statement and to item 2.4.4.3 for a BYTE statement.) The last of 
these entries is followed by an end-of-chain mark which is a word 
containing a value of j-K When an entry is made to KEQV to indicate 
the end of chain KEQVX is increased by the number of words added to 
the KEQV table by - 

(LEQVX) + 1 £> KEQVX. 

When processing begins and the next chain of related elements in 

the source statement, LEQVX will be set to the current word length of 

KEQV information by - 

(KEQVX) — &> LEQVX. 
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Upon exit from BYEQPR, KEQVX will contain the word length of infor- 
mation stored in the KEQV table. 

2.4.4.2 Processing the EQUIVALENCE Statement 

Equivalence statements of the form: 

EQUIVALENCE (a^a^ . . . ,a ± ) , (b^ty . . . t b ± ) . , , , . (c^c^ . . . ,c ± ) 

are processed as follows: 

A chain of related elements areenclosed in parentheses. The chains 
separated by commas. The last chain is followed by an EOS. Within 
the chain, the elements are separated by commas. A four word entry 
is made to KEQV in the manner described by 2.4.4.1 for each element 
in a chain. The last entry is followed by an end-of-chain mark. The 
1st entry made for the next chain follows the end-of-chain mark for 
the preceding entry, etc. A chain must contain at least 2 elements. 

2.4.4.2.1 Processing Errors for EQUIVALENCE Statements 

Diagnostics will be given for the following errors while processing 
EQUIVALENCE statements: 

1. A chain is not enclosed in parenthesis. 

2. An element is not alphanumeric. 

3. An element within a chain is already in the symbol table, 
and either - 

a. classed as something other than a variable name, or - 

b. the name appears either on a RELATIVE or an EXTERNAL 
statement. 

4. An element has more than three subscripts. 

5. An element has a subscript ^0. 

6. An element has a non-integer subscript. 

7. The subscripts of an element are not separated by commas. 

8. The subscripts are not enclosed in parentheses. 

9. A chain contains fewer than two elements. 

After the error diagnostic is printed, the entries made to the 
KEQV table are erased in the following manner: 

Using the value in KEQVX to locate the starting point, each KEQV 
word is set to zero by - 

> KEQV (KEQVX), 

> KEQV(KEQVX+1), 

and — > KEQV(LEQVX-l). 
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Once these entries are erased, BYEQPR will slew the remaining portion 
of the chain. While slewing, an exit will be made from BYEQPR when 
it encounters in the source buffer, either an EOS character or a 
right parenthesis followed by an EOS. If, while slewing, BYEQPR 
encounters a right parenthesis followed by a comma, it will proceed 
to process the next field. 

2.4.4.3 Processing BYTE Statements 

BYTE or SIGNED BYTE statements of the form: ; ~' . ■''* 



[ 



BYTE 
| SIGNED BYTE 



> (a 1 ,b 1 ,(c 1 =d 1 )),..., (a i ,b i ,(c i =d i >) 



are processed as follows: 

For each byte name processed, two entries are made into the KEQV 
table, each in the manner described by item 2.4.4.1. The 1st entry 
is made for the byte name a, followed by the entry for the second 
variable b . . This entry is followed by an end-of-chain mark of "-1". 
( ) The b, variable may or may not be subscripted. However, the a. 

variable must not be subscripted. . Therefore, the 2nd, 3rd and 4th 
words of the KEQV entry for a. must contaii zeros. 

If (c 1 ,b i (c 1 ^d i » 

may be regarded as a chain, the chain of the BYTE or SIGNED BYTE 
statement must be separated by commas and the last followed by an 
EOS. 

The byte limits c, and d, must both be integer constants and maintain 
the relationship - 



15 > c t > d i > 



0. 



o 



An indicator is set in the symbol table entry containing the name 
a. to show that it is a byte name by either - 

a. 1 B>IPART(ISYMX) if a is not a signed byte, or - 

b. 2 — ^IPART(ISYMX) if a* is a signed byte. 

The byte limits are recorded in the symbol table entry as follows: 

1. c.— E>IPARTL(ISYMX), and - 

2. d^~ ^IPARTR(ISYMX). 
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2.4.4.3.1 Processing Errors for BYTE and SIGNED BYTE Statements 

Diagnostics will be given for the following errors while processing 
BYTE and SIGNED BYTE statements: 

1. A chain (as defined in item 2.4.4.3) is not enclosed in 
parenthesis. 

2. An element, either a. or b. is not alphanumeric. 

3. Some byte name a, appears In the symbol table either - 

a. typed as something other than an integer variable, 

b. indicated to be a dummy variable, or - 

c. previously specified as a byte. 

4. The byte name a. is subscripted. 

5. The second variable b. is not alphanumeric. 

6. The second variable b, has more than three subscripts. 

7. The second variable b. has a non- integer subscript. 

8. The second variable b. has a subscript __ 0. 

9. The subscripts for b. are not enclosed within parentheses. 

10. Either of the byte limits c. or d. is not an integer constant. 

11. The byte limits c. and d. are not enclosed in parentheses 
and/or the limits c , and d, are separated by something 
other than equal sign. 

12. The byte limits c, and d. do not satisfy the condition - 

!5 >c i > d i >0. 

Following the diagnostic output, the procedure followed for errors 
1-11 is the same as the procedure described in item 2.4.4.2.1 con- 
cerning errors in EQUIVALENCE statements. After printing the diag- 
nostic, the procedure for error 12 is to substitute a 15 for c^ and 
a for d. and proceed as if no error had occurred. 
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2.4.5 SUBROUTINE or FUNCTION Statement - Subroutine SUBPPR 

SUBPPR processes SUBROUTINE or FUNCTION statements and is called 
directly by PHASE A Tt sets a flag to distinguish between a 
subroutine and a function. (2 = function, 3 = subroutine.) 

The next field is checked to see if it is a name (JMODE = 2). The 
name is checked for legality. If legal, it is put in the symbol 
table. If not, a diagnostic is printed. The terminator is checked. 
If not a left parenthesis, SUBPPR returns to PHASE A If left 
parenthesis, fields are checked until a right parenthesis is 
found. Each name encountered is checked for legality and entered 
in the symbol table. The symbol table pointer goes to output 
buffer. 
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2.M.Lj DATA Statements - Subroutine DATAPR 

The DATAPR subroutine is used to' process DATA statements. 
Intermediate language will bG produced in the output 
buffer for the names and constants which appear in the 
source statement. The output buffer is named IBUF2. 
The tally register that holds the word count for the 
information placed in the output buffer is IBUF2X- 
IBUF2X is set to an initial value prior to entering the 
DATAPR subroutine. Intermediate language generated for 
each member of a name list in the source statement is 
inserted in the output buffer beginning at 

IBUF2-CIBUF2X3-- 

The tally register IBUF2X is increased by the number of 
words of intermediate language generated for the member 
being processed. Upon exit from DATAPRn IBUF2X contains 
the word length of the output entry. 

2.-4.ti.l Processing Name List 

The DATAPR subroutine calls the GETF subroutine to 
extract a member of the name list from the source 
statement. A member of the name list must be alpha- 
numeric If the name does not appear in the symbol 
tablen it is recorded therein by a call to the STORE 
subroutine. If the name is untyped-i an indicator is 
set in the symbol table entry to the type number for 
the name: 

•CJESUT* -» ITYPE-CISYMX3- 

where JEUST is set as a result of the call to GETF. 
Another indicator is set in the symbol table entry to 
show that this name appeared on a data statement: 

1 ■ -> IDATAS-CISYMX* 

If the symbol is unclassified! the indicator in the 
symbol table entry is set to show that this symbol is 
classified as a' variable name: 

1 -» ICLASS-CISYMX* 

If the entry containing this name indicates that the name 
is classifiedn it must be classified as a variable name. 
The variable may not be used as a byten a dummy variable! 
or variable assigned to blank common . 

If the name is an element of an array i a call is made 
to the CONSUB routine in order to compute the increment 
from the subscripts of the element. Upon return from 
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CONSUBn the value in IVCFLG indicates that the element 
is the IVCFLGth member of the array. If each element 
of the array occupies one storage celln 

•CIVCFLG} - 1 

is the increment in words which must be added to the 
base address of the array in order to reference the 
element in the array. Each element of the array occupies 
one storage cell if either - 

1. The name is typed as an integern or 

2. the ASA option has been chosen and the name 
is typed as a single. 

In other words 

either -CITYPE-CISYnx» = In or -CIlO ^ and 
-CISNGL-CISYriX}} * 0. 

If each element of the array occupies 2 storage cells - 

•CIVCFLG}*2-2 

is the increment in words which must be added to the 
base address of the array in order to reference the (^j 

element in the array - Each element of the array occu- 
pies 2 storage cells if either - 

1. The name is typed as realn or 

2. the ASA option is chosen but the integer 
element is not typed as a SINGLE- 

In other words - 

ITYPE-EISYNX3- = 2 or -CITYPE-CISYnxy = 1 and either 
•CIK> = On or -CIIO * and -CISNGL-CISYnX» = 

If each element of the array occupies 3 storage cells - 

-CIVCFLG3-*3-3 

is the increment in words which must be added to the base 

address of the array in order to reference the element 

in the array- Each element of the array occupies 3 storage 

cells if it is double precision regardless of the ASA 

option. 

The members of the list of names must be separated by 
commas and the last name in the list must be followed 
by a slash. When DATAPR encounters the slashn it ter- 
minates processing the list of names and proceeds to 
process the list of constants. {Refer to item 2<H-(a-2> 
Members of the name list may be variablesn array elementsn ^\ 
arraysn and implied DO's- When an array name is foundn \_J 
it is reduced into a series of array elements. When an 
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implied DO is analyzedi a series of array elements is 
also generated. 

2 .LJ.b.l .1 Intermediate Language Generated as a Result of Processing 
the Name List 

The starting position in IBUF2 of the intermediate 
language is recorded in ITEP1P1 prior to processing the 
1st name in the list- As each member of the list of 
names is processedn the following intermediate language 
is generated: 

WORD l: ■CIBUF2-CIBUF2X» = pointer to the name in the 

symbol table. 

UORD 2: -CIBUF2-CIBUF2X+1» = 

1. D if the variable is not an element of an array-i 

2. -CIVCFLO-l if the variable is an element of an 
array where each element of the array occupies 

1 storage celln 

3- IVCFL6#2-2 if the variable is an element of an 
array where each element of the array occupies 

2 storage cellSi and 

M. IVCFLG#3-3 if the variable is an element of an 
array where each element of the array occupies 

3 storage cells. 

WORD 3: -CIBUF2-CIBUF2X+23-} = the number of storage cells 

the variable occupies 
{according to its type}. 

The tally register is increased by the number of words 
of intermediate language to be generated for this name 

•CIBUF2X>+2+-CIBUF2-CIBUF2X+2}> -» IBUF2X 

When the DATAPR subroutine encounters a slash indicating 
the end of the name listn an end of output mark is 
generated in the intermediate language buffer by 

-1 -> IBUF2-CIBUF2X* 
2.M.b.l.2 Error Checking While Processing Name List 

Diagnostics will be given for the following variables: 

1. A member of the name list is not alphanumeric. 

2. A member of a name list appears in the symbol 
table as something other than a class 1 variable 
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3- The member of the name list appears in the 

symbol tablen but an indicator is set to show 
this symbol is a byte. 

L 4 . The member of the name list appears in the 

symbol tablen but an indicator is set to show 
this symbol is either in numbered common or 
used as a dummy variable. 

5. Either the members of the name list arQ not 
separated from each other by commasi or the 
final member in the list is not followed by 
a slash. 

Errors 1 and S will cause processing of the source 
statement to be terminated by an exit from DATAPR. 
For the remaining errorsn processing of the source 
statement is resumed following the output of the error 
indication. 

2. L *.b.2 Processing Constant List 



In a DATA statementn there must 


be a one to one cor- 


respondence between the members 


of the constant list 


and the members of the precedin 


g name list. The members 


of the constant list may be numeric and literal- A 


literal constant must be contained by single quotes. 


Numeric constants may be double 


t realn or integer and 


may have a leading algebraic si 


gn of "+" or "-". If 


the value of the constant is to 


be assigned to consecu- 


tive variables in the preceding 


name listn it may be 


preceded by a repeat count equa 


1 to the number of times 


it is to be used. The repeat c 


ount for the constant 


must be an integern and it must 


be separated from the 


constant by an asterisk. In or 


der to comply with the 


one to one correspondence rule 


as stated aboven the 


following condition must be sat 


isfied when a member of 


a constant list is preceded by 


a repeat count: 



o 



C+RC=V 



where 

1- C represents the number of constants in the 
list without repeat countsn 

2. RC represents the sum of the repeat counts 
occurring in the constant listn and 

3. V represents the number of variables in the 
preceding name list. 

When using literal constants! the number of characters 
must be taken into consideration. If the variable type 
is: 



O 
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Single or Integer it holds 2 characters 

Real it holds ^ characters 

Double Precision it holds b characters 

Trailing blanks are used to fill a variable entry that 

has been started and an end of literal quote is en- 
counteredn that is: 

D is a double precision variable. 

DATA D/'ABCV 

The variable D uill be initialized as if the DATA 
statement were: 



DATA D/'ABCbbbV 



b = blanks 



O 



Since a numeric constant may be double precision! real 
or integern it must agree in type with the variable in 
the preceding name list to which it is assigned. 

The members of the constant list must be separated from 
each other by commas. The final member of the list must 
be followed by a slash which is followed by either a 
comma or an EOS- If the list terminates with a slash 
and an EOSi processing of DATA statement terminates when 
processing of the current constant list terminates. If 
the list terminates with a slash and a commai DATAPR 
proceeds to process the list of names which follow in 
the manner describe by item 2 - 14 . b - 1 - 

2.M.L.2.1 Completing the Intermediate Language in the Output Buffer 

The tally register IBUF2X is set to the value recorded 
in ITEMP1 prior to processing the list of names preceding 
the list of constants. {See item 2.M-b.l.l> The DATAPR 
subroutine calls GETF to extract a member of the list 
of constants from the source buffer- Prior to calling 
GETFn the repeat ICOUNT is set to 1- Upon return from 
GETFn one of the following conditions has occurred: 



CONDITION l: 



O 



The operand is not preceded by a repeat 
countn or a quotei or a leading algebraic 
sign. Upon return from GETF - 

JTERM = comman slashn or EOS 

JMODE = 3 for integer constant n 5 for 

real constant and b for double 

precision constant 
JSYI1-C1} = value of integer constant 
JSYIK1> and JSYM-C23- = value of real constant 
JSYM-Cll-i JSYM-C2} and JSYM-C31 = value of 

double precision constant 
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The numeric constant and the name from the preceding 
list to which the constant is assigned must agree in 
type such that - 

CONSTANT JMODE IBUF2-CIBUF2X+2> 

double precision h agrees with 3 

real 5 agrees with 2 

integer 3 agrees with 1 

The constants are entered into the intermediate language by - 

integer JSYM-tl}-* IBUF2{IBUF2X+2> 

real JSYri€l>-, JSYM-C2}-* IBUF2-EIBUF2X+2}-, 

IBUF2-CIBUF2X+3> 
double precision JSYN-Cl}-, JSYM-C2}-, JSYM-C3> -» IBUF2 

-CIBUF2X+2>nIBUF2-tIBUF2X+3>-,IBUF2 

■£IBUF2X + l 4} 

The tally register is increased by 3i Mi 5 accordingly. 

CONDITION 2: The operand is preceded by a leading alge- 
braic sign- Upon return from GETF - 

JTERM = either "+" or "-" 

JMODE = D indicating a null field 

A second call is made to GETF to extract 
the numeric constant from the source 
statement. If the algebraic sign was a 
n ""i the value for the constant is com- 
plemented by: 

- JSYM-Cl*-* JSYM-Cll-i 

- JSYM-C23--* JSYM-C2>n 
and - JSYM-£3>-> JSYM-C33-. 

If the leading algebraic sign was a "+ n i the sign is 
ignored. The constant is then processed as if it had 
no leading algebraic sign- -CSee condition 1> 

CONDITION 3: The constant is preceded by a repeat count. 
The repeat count must be an integer sepa- 
rated from the constant by an asterisk. 
Upon return from GETF - 

JTERM = "*"n JMODE = 3n and JSYM-C13- = value 
of repeat count 

The repeat count is recorded in ICOUNT by - 

JSYM-£1>->IC0UNT 

A second call is made to GETF to obtain the constant. Q 

If it is a literal constant it is processed as condition 
5. The numeric constant is assigned to a number of 
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consecutive names from the preceding name list until 
ICOUNT = 0- The constant must match "type wise" each 
of the consecutive names to which it is to be assigned. 
The constant is inserted into the intermediate language 
in IBUF2 for each of the names in the manner described 
by condition 1- IBUF2X is increased by the number of 
words of intermediate language for each entry made in 
IBUF2. The repeat count is reduced by 1 for each entry 
made into IBUF2. When ICOUNT = On the repeat conditions 
are satisfied. The repeat count must not be so large 
that it is not zero when the end of the name list is 
encountered in IBUF2. The end of the intermediate lan- 
guage is marked by an entry in which: 

IBUF2-CIBUF2X* = -1 

A flag IVBUF is checked to see if the name list has been 
exhausted. If IVBUF = 1 then more intermediate language 
will be generated and IBUF2 will be written out and re- 
filled- If IVBUF =' and the end of the intermediate 
language is encounteredn then the end of the name list 
will have been reached. {See item 2.4.b.l.l} 

CONDITION- 1 *: The numeric constant is preceded both by 

a repeat count and has a leading algebraic 
sign. Firstn the repeat count is processed 
according to condition 3. Then the leading 
algebraic sign is processed according to 
condition 2 . 

CONDITION 5: The operand is preceded by a single quoten 
indicating a literal constant. Literal 
constants must have a terminating single 
quote. Upon return from GETF - 

JTERI1 = n,n single quote 

JMODE = D indicating a null field 

The routine GETC is used to extract characters from the 
source statement. Characters are extracted until a 
terminating quote is encountered. 

The characters are entered into the intermediate language 
according to the following conditions. 

Type of NAME No. of CHARACTERS 

Integer 2 

Real 4 

Double precision b 
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Characters are assigned to consecutive names until the 
literal is terminated. If assignment has begun and 
the literal terminates! the remainder of the name is 
assigned with blanks. {That is-i if a namen whose type 
is reali was assigned a character and the end of literal 
was encountered 3 blanks are assigned to fill up the 
entry. > The intermediate language pointer is updated 
after each name assignment by: 

Type of Name -» IENTRY 
IBUF2X+IENTRY+2 -♦ IBUF2X 

2. L ».b-2.2 Error Conditions Check for While Processing Constant List 

Diagnostics will be given for the following errors: 
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is either non-integer or 

nstant list is both non-numeric 

nt does not agree in type with 
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2.4.7 FORMAT Statements 
2.4.7.1 Subroutine CHECKF 
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The routine CHECKF is entered. The statement is syntax checked, 
but remains a string of ASCII characters. It is noted whether E or 
F conversion is used so entry points for these conversions will or 
will not be created. 

CHECKF is a routine to syntax check a FORMAT statement. If it 
discovers an error in the format specifications CHECKF calls 
DIAG, the diagnostic routine. 

INPUT 

CHECKF uses the FORK routine to check fields in the FORMAT state- 
ment. The first field it receives should always be null with a 
( terminator (the leftmost left parenthesis). The field preceding 
the last must always terminate with ); the last field must be null 
with an end of statement terminator. CHECKF assumes that each 
successive call to FORK picks up the next field scanning left to 
right, in the FORMAT statement. 

OUTPUT 

As the check proceeds FORK (using FGETC) converts the FORMAT state- 
ment to external code (BCD or ASCII) and places it into IBUF2 start- 
ing at IBUF2(6). The last character placed in IBUF2 (banning an 
error) will be the terminating right parenthesis. The FORTRAN 
statement placed in IBUF2 will not include extraneous blanks or 
the EOS character. 

Upon exit IBUF2(X) will be at the number of Words in IBUF2. 

Subroutines used.: FORK, FGETC, GETC, DIAG 
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2.4.7.2 Format Handling Routines - FORK 

Syntax checks a format statement. Input parameters: 
output. 

Output parameters: 

1. II field type 

1 = null or repeat count only 

2 = X 

3 = H 

4 = A 

5 ■= R 

6 = $ 

7 = 1 

8 = f 

9 = E 

10 = Error 

2. 12 field terminator 

= none (X,H fields) 

1 - ( 

2 = ) 

3 = , 

4 = / 
-13 = E05 

3. 13 repeat count 

4. 14 = W 

5. 15 = D 
Modes: 



holders for 



1 = initial 

2 = repeat 

3 = f, E 

4 = A,R,$,I 

5 = error 
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Subroutine FGETC usually delivers one character from ISORS 
The character is converted to ASCII and output. However n 
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2.4.8 ASSEN Statements - Subroutine ASEMPR 

The ASEMPR subroutine will generate intermediate language for each 
member of a parameter list in an ASSEM statement. The meaning of 
the intermediate language generated for a particular constant 
depends on the type of constant the ASEMPR subroutine encounters 
in the parameter list. The constants may be either numeric constants, 
address constants of statement labels. 

2.4.8.1 Output of Intermediate Language 

The intermediate language is generated in the output buffer i anud 
IBUF2. The tally register used for the word length of the output 
entry is IBUF2X. IBUF2X is set initially prior to entering ASEMPR, 
and is increased by the number of words of intermediate language 
generated for a parameter when the parameter is processed. An i.l. 
entry generated for a parameter begins at IBUF2 (IBUF2X). 

2.4.8.2 Numeric Constants 

A numeric constant must be an integer of the form: 

$hhhh, 

implying a hexadecimal number. The GETF subroutine is called to 
extract the numeric constant from the source buffer. If, upon 
return from. GETF, the operand is other than an integer, the flag 
JMODE will not contain a "3". An error diagnostic will be made 
followed by an exit from ASEMPR. 

If the numeric constant is legal, the following 2 words of inter- 
mediate language will be generated in the output buffer: 

WORD 1: (IBUF2(TBUF2X)) = lj = the number which identifies the 

parameter as a numeric constant. 

WORD 2: (IBUF2(IBUF2X+1)) = the value for the numeric constant. 

2.4.8.3 Address Constants 

An address constant may be either an alphanumeric operand in which 
case it is a name or it may be a numeric operand in which case it is 
regarded as a statement label. The name or label is extracted from 
the source buffer by a call to GETF. If the name or label does not 
appear anywhere in the symbol table, a call is made to the store 
routine to read the operand and its class. 
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The following 2 words of intermediate language will be 
generated for an address constant using absolute addres- 
sing and having no increment: 

WORD l: -CIBUF2-CIBUF2X» = 2 

WORD 2: -CIBUF2-CIBUF2X+1» = pointer to name or label 

in symbol table. 

The following 3 words of intermediate language will be 
generated for an address constant using the absolute 
mode of addressing and having an increment: 

WORD l: -CIBUF2-CIBUF2X» = H 

WORD 2: CIBUF2-CIBUF2X+1» = pointer to name or label 

in symbol table. 
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2.4.9 ASSIGN Statement - Subroutine ASGNPR 

ASGNPR is called directly by PHASEAto process ASSIGN statements. 

It reads the next field in ISORS using RDLABL and ascertains that it 

is a label. ASGNPR locates the label in the symbol table and places 

this symbol table pointer into the output buffer. The next two characters 

of ISORS are checked for T, - if they are not, a diagnostic is 

printed. ASGNPR reads the next field and checks that it is an integer 

variable name. If so, the name is located in the symbol table and 

its symbol table pointer is placed in the output buffer. The number 

of words in the record is put into the first word of the output record 

and ASGNPR exits to PHASEA - 
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2.4.10 EXTERNAL and RELATIVE Statements - Subroutine EXRLPR 

EXRLPR is called by PHASE A ' to process EXTERNAL and RELATIVE state- 
ments. It scans ISORS, checking the legality of each name it picks 
up, putting the name in the symbol table, and checking whether it has 
previously been declared as other than an external name. If it has 
been declared as other than an external, an error is output. If not, 
IEXT in the symbol table is set to one and, if EXRLPR is processing 
a relative statement, IREL is also set to one. Upon encountering the 
end of the statement, EXRLPR exits to PHASEA . 
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REWIND, ENDFILE, BACKSPACE Statements - Subroutine ERBPR 



ERBPR is called directly by PHASEA to process REWIND, 
BACKSPACE f on ENDFILE statements. It reads the 
next field of ISORS and verifies that it is an integer 
constant on variable name. After verification ERBPR 
sets up the output entry and return- 

In the 3. DA compiler the length of ERBPR is crucial- 
Any increase in ERPBR jellsJl be accompanied by a 
corresponding decrease in the BSS buffer at the end of 
DUMYAb. -tSee page 5-^1 
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IOSPR - Tree Builder for I/O Statements 

This routine is called by PHASEA „pon encountering a READ or 
WRITE. It builds the trees for the calls to Q8QINI, Q8QX, and 
Q8QEND, as required in IBUF2. Calls to Q8QX are built as new source 
statements which will be processed by ARITH. Other calls are built 
in the form of ARITH output and will be processed next by PHASEB 

For a READ, WRITE statement the first tree generated is for Q8QINI. 
If there is a list, a Q8QX call is generated for each element, 
and a call to Q8QEND is, generated after the last element. 
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2.4.13 BDOPR 
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The BDOPR subroutine is called to process DO statements of the 
form: 

DO label indue = lbeg, lend, incr 

The parameters for this statement are as follows: 

1. "label" is the statement label assigned to the final 
statement of the do loop. 

2. "indue" is the induction parameter. 

3. "lbeg" is the beginning parameter. 

4. "lend" is the end parameter. 

5. "incr" is the increment parameter. 



2.4.13.1 "label" 

A call is made to the RDLABL subroutine in order to extract the 
label from the source language input. Upon return from RDLABL the 
following is true: 

1. Either (ILLABL) = if either - 

a. the label is missing, or - 

b. the label is illegal, 

or (LLABL) ^ if the label is present and legal. 

2. Either (ISYMD) = if the label does not appear in the 
symbol table, or (ISYMD) £ if an entry for the label 
is present. If (ISYMD) = 0, a call is made to the STORE 
routine to insert this label in the symbol table. 

3. If (ISYMD) =£ 0, the statement label must either be undefined, 
or it must occur subsequent to the DO statement. If - 

(ISNOL(ISYMX)) = 0, 
the label is undefined, and if 

(ISNOL(ISYMX)) > (ISTNO) 

the label occurs subsequent to the DO statement where - 

(ISTNO) = the statement number for the source statement 
currently being processed. 

2.4.13.2 "indue" 

The restrictions on the induction parameter are as follows: 
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1. It must be an integer variable. 

2. It may not be preceded by an algebraic sign. 

3. It must be followed by an equal sign. 

4. This parameter must not be used as any parameter in another 
DO statement if the do- loop for that statement contains 
the do- loop of the statement currently being processed. 

A call is made to the CKNAME subroutine to extract the parameter 
from the source language input. 

Upon return from CKNAME either - 

1. (IVCFLG) —2 if the parameter is an integer variable, or - 

2. (IVCFLG) f 2 if not. 

If 2 is the case an error diagnostic is given prior to the return 
from CKNAME . Therefore, following the return from CKNAME, only 
an exit is made from BDOPR. 

2.4.13.3 "lbeg" 

The restrictions on the use of the beginning parameter are as 
follows: 

1. It must be either an integer variable or an integer 
constant. 

2. It may not be preceded by an algebraic sign. 

3. It must be separated from the preceding parameter by an 
equal sign. 

4. It must be followed by a comma. 

A call is made to the CKIVC subroutine to extract this parameter 
from the source buffer. Upon return from CKIVC, either - 

1. (IVCFLG) = if the parameter is non integer, 

2. (IVCFLG) = 1 if the parameter is an integer constant, or - 

3. (IVCFLG) = 2 if the parameter is an integer variable. 

If (IVCFLG) = 0, an error diagnostic is given by the CKIVC subrou- 
tine. Therefore, after returning from CKIVC, only an exit is made 
from BDOPR. 

2.4.13.4 "lend" 

The restrictions for the use of this parameter are the same as 
those for the "lbeg" parameter. The CKIVC subroutine is used to 
extract this parameter from the source buffer the same as for the 
"lbeg" parameter. 
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The increment parameter may be preceded by a 
minus sign- This parameter is also followed 
by an EOS. This parameter is optional and 
may be omitted. If sor the <Mend* parameter 
is followed by an EOS. A value of 1 is sub- 
stituted for the increment parameter- 

Output of BDOPR 

The BDOPR subroutine will generate a 5 word output 
entry for the do- loop table and a 1 word output 
entry for the output buffer- 

Do-Loop Table Entry 

*L00PT* = name of table 

•CLOOPTS} = capacity of the table 

•CLOOPTBJ = length of a table entry 

{L00PTX1 = pointer to the entry in the table 

A DO-LOOP table entry is five words long. The 
format of the DO-LOOP table is as follows: 



U0RD1 



W0RD2 



U0RD3 



LEND = bits D-1S of LOOPT-CMJ . 
•CLEND} = pointer to symbol table entry 

containing the v Iend^ 

parameter. 

LID = bit IS of L00PT-C53-. 
-ELID} = 1 if the *incr* parameter is 
preceded by a minus sign- 

LINDUC = bits D-1S of L00PT-C1}. 
■CLINDUC>= pointer to the symbol 1 table 

entry containing the *induc* 

parameter. 

LBEG = bits D-1S of L00PT-C2D-- 
■CLBEO = pointer to the symbol table 

entry containing the ^lbeg* 

parameter. 



UORDM 



LINC 



= bits D-1S of L00PT-C3I 



CA 1»«-1 MKV 10-«7 



CONTROL DATA CORPORATION 



DIVISION 



DOCUMENT CLASS ... IO.S 

PROnuci nami- 17DU..JlASS...StI.0BAXii:>.Ei>RTRAN- 
PROinJCI MODEL NO. ...01Q'r».y..- !■-" _. 



PAGE NO 



5-26Q 



MACHINl SI Kit 



J.7UI1 



■CLINO = pointer to symbol table entry 
containing the *incr v 
parameter - 

U0RD5: LLABL = bits 0-14 of ID0TB-C5}. 

•CLLABLJ = pointer to symbol table entry 
containing the *label v 
parameter - 
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Output Buffer Entry 

An entry made in the output buffer consists of 1 
wordr a pointer to the LOOPT entry for this DO 
statement - 



•CLOOPTX* > IBUF2-CIBUF2X} 
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Errors 
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Error diagnostics are given by BDOPR for the 
f o I 1 ow i ng : 

1- An illegal label or a missing label- 

2- The label occurs prior to- the DO statement. 
■3- Overflow of the DO-LOOP table. 

M- Overflow of the NESTED-DO-LOOP table. 
5- The induction parameter is currently in 

use as an induction variable in a do- loop 

containing the do-loop for the statement 

currently being processed, 
fa. Illegal characters separating the parameters 

in the DO statement. 
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Errors 1, 2 & 5 will cause termination of the DO statement processing, 
and an exit will be made from BDOPR following the printout of the 
error diagnostic. Following the printout of the error diagnostic 
for errors 3, 4 & 6, processing of the DO statement will be resumed. 



2.4.13.8 Induction Variables 



Indicators are to be set in each of the symbol table entries con- 
taining the "lbeg", "lend", "indue" and "incr" parameters to 
show that these are induction variables. These indicators are 
reset when the statement label is encountered that marks the end 
of the do- loop. Such an indicator is set by - 



INDUCV(ISYMX) 
2.4.13.9 Jk>-Loops Originating in I/O Lists 
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A DO statement in the source buffer is terminated by an EOS. A 
do loop may originate in an I/O list such as - 

WRITE (unit, format statement label)(A(I),I=l, 10) , . . . 

If so, an indicator is set prior to entering BDOPR. This indicator 
is recorded in ITEMPX. If the origin of the do loop is in an I/O 
list, (ITEMPX) = -1. If this is the case, a right parenthesis 
replaces an EOS as the end of the statement in the processor. 
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3.3.2 Subroutine CPLOOP 



CPLOOP is called by PHASEA it allocates, in consecutive order, the 
space needed for each common block. CPLOOP operates in two passes, 
the first of which determines the size of each array in common, and 
the second of which allocates space. Two- passes are necessary because 
common is strung in the reverse direction from which the COMMON 
statements came in. CPLOOP takes into account any EQUIVALENCE 
statements to variables and/or arrays in common, and lengthens the 
COMMON BLOCK if necessary based oh these EQUIVALENCES. 
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3.4.0 Arithmetic Expression Processors 

3.4.1 Subroutine ARITH 

ARITH is the Phase A subroutine which itemizes and 
syntax checks arithmetic expressions. 

ARITH processes an expression found in ISORS (ISORSX)* 
to either end of statement or zero parenthesis level, 
dependent on the setting of ISTOP. 

The itemization and syntax check are done concurrently 
and an itemized reconf i auration of the source input 
is built in IBUF1. If syntax errors are encountered, 
error diagnostics are output. 

If a subscript of a variable is encountered, a call 
to SUBSCR is made to expand the subscript to a poly- 
nomial. 

When the scan of ISORS* is complete, IERR is checked. 
If IERR ± 0, ARITH exits. If IERR = 0, ARITH calls 
subroutine TREE to reconfigure the items in IBUF1 
into a tree structure representing the arithmetic 
expression. In the 2. DA version, ARITH passes a 
mixed-mode flag to TREE in the common variable LSI. 

Upon return from TREK, ARITH exits to il'S 'ml. J or. In 
» ho P. DB vmi ■«* i on , APITH r«,i 1 1 r, Mni>MK|> )u<;i bof'oro ox i f 
if tin hciI nil >< \t° ;\ i i | I inif t I i < ' linn I ■<-.«•. 1 1 <• 1 1< < n ii i I <- i <•< I . 

I 1 1 1 mi I | >.i I .'illii : t < * 1 r> : I ,' ii M<li A I m i I I <-. i i ii wl i i . 1 1 I < » 

1 iiitt s t .iteniciit; to 
analyze 
ISORSX* - Indexer into ISORS 
ISTOP - Switch signalling 

when to stop analysis 

= end of statement 

1 = zero parenthesis 
level (If statement 

2 = process single 
variable (READ, WRITE) 

IBUF2 - Set to the next avail- 
able word (relative 
to start) in the out- 
put buffer (IBUF2) 

ISTNO - Current statement 
number 
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Output parameters: 



Subroutines used: 



IBUF2 - Contains tho expression 
in tree form 

IBUF2X - Set to next available 
word in IBUF2 

IERR -■ Switch signalling 
syntax error 

ISORSX - Updated to reflect 

end of expression or 
character following zero 
parenthesis level. 

GETF - Get one field from ISORS 
GETSYM - Get symbol table page 
SYMBOL - Search symbol table 
STORE - Store symbol in symbol 
table 
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If AND (IFLAGS,$10) is not zero, input is in IBUF2 
(IBUF2X) . InE.OA, there are two versions of 
ARITH. 
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Function is a special variable treated like a set of parentheses. 
It and its parameters are not reorderable, and can be looked at only 

just as it sits. 
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Subroutine SUBSCR 

SUBSCR expands a subscript of a variable into one of the following 
po lynomials : 

one dimensional array: 

subscript = (C1*X1 + Dl) *E 
two dimensional array: 

subscript = (C 1*X1 + Dl + A*C2*X2 + A*D2 + A) *E 
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three dimensional array: i 

subscript = (C1*X1 -f A1*C2*X2 + A1*A2*C3*X3 + Dl 
+ A1*D2 - Al + A1*A2*D3 - A1*A2) *E 

Where A is the dimension of the variable being subscripted, E is 
the number of words in an array element, and the permissible form 
of a subscript dimension is: 

c i x i± D i 

to a maximum of three dimensions. 

Depending on the type of resulting polynomial when all constant 
terms are collected, the variable is set to incrementally subscripted 
(the polynomial has no variable terms), variable subscripted 
(the polynomial has only a single simple variable), variable and 
increment subscript (the polynomial has a single simple variable and 
a constant term), or complex subscript. The subscript is moved to 
IBUF1. 

Subroutines used: SYMBOL 

STORE 
GETF 

Switches and Tables 

TSH 3 word table containing dimensions of subscripted 

variable 

ISSX current dimension 

JV lillJFl index of variable associated with subscript 

IVM Word length of variable associated with subscript 

ID1 3 word table of constant terms in subscript 

IC1 3 word table of constant multipliers in subscript 

1X1 3 word table of variables in subscript 

ISFLAG +, - flag for subscript terms 
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1. CALL statement. 
Error in field. 
3. - Set to r.uil field. 

This routine syntax checks the source 
statement and stores it in pre- tree 
form in IBUF1 for TREE to process. 

IBUF1 Form 

WORD 1 Type 

WORD 2 level 



WORD 3 



symbol table 
pointer (if 
necessary). 
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4. IF statement: if ISTOP-1 

5. IF must start with "(" 
diagnostic 7. 

6. Bump left parenthesis 
count and set "(" 
operand type. 

7. Set operator level; 
set last symbol to 
"("; increase index 
by 2. 

8. IST0P=2 means pro- 
cess a variable. 

9. Null character. 

10. JM0DE=2 means field 
is alphanumeric. 

11. Illegal operator 
or operand. 

12. means unassigned 

1 means variable or 
function definition 
name . 
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TASK NO. 



TASK NAME 



REV APPROVED 



UJ 
I 



A A I .(8 5 (f OHMt 



o 




13. If dimension and "("', diag- 
nostic and slew to ")"• 
Otherwise class is 
a variable. ' " 

14. Not a null character; 
process the symbol. 

15. Not "(", process 
other terminator. 



16. Unmatched paren- 
thesis. 

17. Matched parenthesis 
- check for exit. 





IBUFl(IBUFIX) 

= 8 
Set operator 

level 





PREN=LPREN+1 
[BUFl(IBUFIX) 
= 6 
,S1 = 16 




50 1: 



-> 



5013 



144 



Check buffer} 
overf low 




DIAG 



Diagnostic 
16 



■> 



IBUFIX = 
IBIFIX+1 




CONTROL DATA CORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE Q] 

FLOWCHART ^ 

DECISION TABLE [~ ) 

OTHER j " I 



DOCUMENT 
CLASS 



DOCUMENT 
TITLE 



XtfS 



ASttiL 



DRAWN nv 



TYPE /^Q 



pace )2>o r>OcT 



ISSUE 
DATE 



DATE - /--. 

I1WI !■— ■■■Ilfl ■■ l~l I." Illl IBM 1 1 




3= 



PROJEC T NO. 



PROJEC T MCR. 



PROJECT NAME 



TASK N O . 



TASK NAME 



REV APPROVED 



UJ 
I 



18. If error set 
last symbol to 
nonsubscripted 
variable and 
go to identify 
terminator. 

19. Must be symbol 
field or go to 
constant pro- 
cessor. 

20. Put symbol in 
symbol table if 
not already 
there. 

21. Check for ''-'» 
terminator.. 




^x 




131 



GETF 




.311 



fWT 



\IBUFS yS 



^ 



Buffer over- 
low -abandoi 
c ompilation 



NULMI = ' .' 

(Clear bit»k& 
switch) 



mio)- 



Get next 
field 





NULMI=LS1 
(Set switch 

to last 

symbo 1 ) 



f 




181 



18 



LSI = 24 
NULMI = 
(Clear H»*uj> 
switch) 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE [~] 

FLOWCHART Q^j 

DECISION TABLE |_] 

OTHER (_J 




20 



NULMI = 
Assign 
149 to IAD 



DOCUMENT 

CL 



«. -cms 



MACH 
TYPE 



DOCUMENT 
TITLE 



Mm/ 



/?#<? 



ISSUE 
DATE 



page /•o'-j y 



DRAWN BY 




PROJECT NO. 



PROJECT M6R 



PROJECT NAME 



TASK NO. 



TASK NAME 



REV 



APPROVED 



I 

tr 



A A 1 3 8 5 . r '■ 



o 



;f~\ 



n 



22. If the field is not 
in SYMTAB, check for 

23. If class is not a 
variable, must be 
"(", "V, or ",". 

24. If class is unassigned 
and symbol is either 
relative or external, 
a variable has been 
used as a subpro- 
gram name. 

25. Set class = variable. 





CONTROL D AT ACORPORATION 

SOFTWARE DOCUMENT 



□ 



SAMPLE CODE 

FLOWCHART [V] 

DECISION TABLE [7] 

OTHER [7J 




DIAG 



Diagnostic 
21 



^ 



25 



ICLASS(ISYMX) 

= 1 
Assign 

147 to IAD 



IBUFI(IBUFIX) 

= 24 
(Variable 

operand) 





IBUFIX = 
IBUFIX+1 
(Bump index) 




PUNT 



Buffer overfltow; 
terminate coq£ 
piler 



IBUFK IBUFIX) 
=ISYMX+ISYMP 
(Set symbol 
table entry nj>. ) 




DOCUMENT -r-jJ*~ 
CLASS JT/YlS 



DOCUMENT 
TITLE 



te/w 



MACH. // / yt/ . 

type rfOQ 



^orOO 



ISSUE 
DATE 



DRAWN llv 



/• / 



PROJEC T NO. 



PROJECT MCR. 



PROJEC T NAME 



TASK NO 



TASK NAM! 



RE\ APPROVED 



UJ 
I 



2b. Check partial 
variable. 

27. If dimensional 
or "(" go check 
predecessor. 

28. Dimensioned so 
set to increment 
only variable. 

29. Two words/entry 
if non-integer or 
integer and ASA 
selected and 
SINGLE not selected, 






f 



ITEM = 
IBUF1 
(IBUF1X-1) 
C Temporary) 



28 



IBUF1(IBUFIX- 
=1BUF1(IBUFIX- 
+2 



IBUF1 

(IBUF1X-1) 
= 29 
[Partial Variable) 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 



SAMPLE CODE 
FLOWCHART 
DECISION TABLE 
OTHER 



Li 
□ 




JSYM (1) 
= ITYPE 

(ISYMX) 
Set type 




JSYM(l) = : 



f 



Assign 146 
to IAD 




DOCUMENT 
C LASS 



ZMS 



>°\^r 4/?/T/f 



IACH. td 4*.^ 



'AGE Q> OF S-J 



NUMBER 



ISSUE 
DATE 



DRAWN BY 



?/r/ 



PROJEC T NO. 



PROJECT MGR 



PROJECT NAME 



TASK NO. 



TASK NAME 



REV APPROVED 



UJ 
I 



.\A|J85 .lOBUlrtu CAI27-! 



i I 



o 



in 



o 



o 



iiwii;w 



ra 



IBUFI(IBUFIX) 
»JSYM (1) 
(CONSTANT 
VALUE) 



± 



DIAG 
DIAGNOSTIC 
10 



a 



LA JOLLA RESOURCE CENTER 
IMS Page 3-1 1 
17D.D MASS STORAGE FORTRAN 
C0D5*3.1 A/B 



LA JOLLA FACILITY 





^3\ 




ASSIGN 16 
T0IAD1 



MODE - 
ITYPE (ISYMX) 

(SET arithmet: 

MODE 




TITLE 




ARITH 




ORG. NO. 


REVISION 


DRAWN BY 


PROJ. 


DATE 


SHEET 2_ 


of 3 



CSO203 



35. Illegal predecessor. 

36. Single variable if 
IST0P=2. 

37. Undimensioned vari- 
able or left paren- 
thesis. 

38. Check against termi- 
nator table for I - 




o 



o 



o 



fa 

o 




191 



39. DO Loop fall- 
through if not 
legal terminator. 

40. End of expression 
(EOS detected). 

41. Expression ends 
illega lly. 

42. Check for matched 
parenthesis. 

43. Unmatched paren- 
thesis. 

44. Relational opera- 
tor is missing. 

45. Set statement type 
to continue. 



46. Logical ex- ^ 50 ° 
pression and not 
logical if. 

47. Illegal use of 
relational opera- 
tion. 



ITEM = -1 

Illegal 

Expression 



f 5037 j 




DIAC 



DIAG 



Diagnostic. 
4112 




RETURN 



DIAG 



DUG 



Diagnostic 
4lll_y 



Diagnostic 



4113 





RETURN 



Diagnostic 
4114 



J?. OA only 



LSl=tAW0V 




L 



XBtf«X = 5" 



45 
2.CA 



^ 



only 



_ TRE_E ._. 
Bu\U r>«€ 

Sfruc fure 
to X$VFJk j 




CONTROL D AT ACORPORATION 

SOF T AAR£ DOCUMENT 



SA'/a; .f-. CODE 



V* 



DOCUMENT 
CLASS 



COCLWENT 
Tl T LE 



Z?¥S 



MA CH. 
TYPE 



df//Pf- 



/$&L 



j=_*i fc yo ^ JX* 



%Z1 



PflOjEC T NO. 



i ■ D o J £. C T M G R 



, t c * •- i«-r 



*p"h:>'.c 



U) 
I 

ru 






48. ")" detected. 

49. Parenthesis • leve 1 
the same? 

50. No entries in mode 
control table? 



52. Check predecessor, 
variable, constant , no 
parameter function or 
subroutine legal. 

53. Illegal operator 
or operand. 



CONTROL D AT ACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE Q] 

FLOWCHART j£C] 

DECISION TABLE [H 

OTHER ! _ 1 



48 



lpke:: ~- 

LP REN -1 
(Decrease 
Paren counter 




LSWITC = 
Clear sub or 
fun call 
switch 






DIAG 



Diagnostic 
10 



3<r 



LSI = 17 
Last symbol 
right paren- 
thesis 



DOCUMENT 
C L. ASS 



z~/r> 



MACH. 
TYPE 



DOCUMENT 
TITLE 



A£mL 



/fao 



P*GE/yOFjly 



NUMBER 



ISSUE 
DATE 



DRAWN BV 



DATE . 



PROJECT NO. 



PROJECT MGR. 



PROJECT NAME 



TASK NAME 




5012 



APPROVED 



UJ 
I 

ru 
ru 



AA1383 .fO'MtHi.1 C A 12 7-1 i 



f \ 

\ J 



n 






54. 
55. 

56. 

57. 



Test for end of statement 

IBUF(3)=21 means CALL 
statement. 

Parenthesis level the 
same? 

Yes. Set mode and 
decrease IWORK index. 



CONTROL DATACQRPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE Q 

FLOWCHART 
DECISION TABLE 
OTHER f7J 




58. Left parenthesis processor, 

59. Check predecessor a 
variable. 

60. Predecessor is a variable. 
Is it a numeric constant? 

61. Dimensioned variable? 

62. No. Check if not read, 
write, or replacement, or 
replacement and processing 
to end of statement. 

63. Undimensioned subscripted 
variable. 



CONTROL ATACORPORATION 

software document 

sample cooe q 

flowchart -££} 

decision table [^j 
other ; ! 




ISYMX = 
IBUF(IBUF1X-1|> 
Set symbol 
table index 



GETSYM 



Get symbol 
description 



IERR = 1 
Set error 
flag 




DOCUMENT 
C LASS 



DOCUMENT 
TITLE 



ML 



MA CM. 

TYPE 



//6Q- 



4£j&L 



ISSUE 

DATE 



p 'S^pJ 4 f 



DRAWN BY 



O A T E «^ 




PROJEC T NO. 



PROJECT MSR 



PROJECT NAME 



TASK NO- 



TASK NAME 



REV 



APPROVED 



AA: J85 .ronwis v CA1J7-1 



o 



n 



64. Slew to right parenthesis. 

65. End of statement? 

66. Right parenthesis. 

67. * assumed. 

68. Set level 6 and bump 
index. 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE H] 
FLOWCHART 
DECISION TABLE 
OTHER | ] 




DIAG 



Diagnostic 
8211 



IBUFI(IBUFIX) 

=13 

LS1=13 

Set multiply 




m 



IBUFI(IBUFIX) 

=6 

IBUF1X= 

IBUF1X+2 



PUNT A 

Buffer 
overflow 



DOCUMENT 
CLASS 



DOCUMENT 
TITLE 



£%£- 



MACH. 
TYPE 



4?/7tf 



//06 



ISSUE 
DATE 



PAgE^OF^T" PROJECT NAME 



DRAWN BY 



BttjSaffssy TvwMifa B 




PROJEC T NO. 



PROJECT MSR 



TASK NO. 



T A5K NAME 



APPROVED 



DATE 



UJ 
I 

ru 
Ln 



69. 
70. 
71. 
72. 



Entry if nonvariable 
prececessor . 

Check predecessor is 
** or mode is integer 

Go make IWORK entry. 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART gj 

DECISION TABLE Pj 

OTHER | | 



70,71 




Assign 12 
to IAD1 







DOCUMENT 
C LASS 



DOCUMENT 
TITLE 



ZZSL 



MACH. 
TYPE 



J&Z2L 



/fto 



ISSUE 
DATE 



PAgE/4^0 F 3^ 'PROJECT NAME 



DRAWN BY 



zz 



PROJECT NO. 



PROJECT MGR 



TASK NAME 



APPROVED 



AAt385 (ro»wC«i.Y CA127-U 



UJ 

I 
ru 






^5 



73. AND processor. 

74. Only OK in logical if. 

75. Relational operator 
encountered switch on? 

76. Check if last symbol 
")" or constant or 
variable. 

77. Illegal operator or 
operand. 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE Q] 

FLOWCHART K£] 

DECISION TABLE [_] 

OTHER [71 



DOCUMENT 
C LASS 



OOCUMENT 
TITLE 



-2&L 



MSL 



u 



IBUF1(IBUF1X+ 

=2 

Set AND opera 

tor level 



L) 





503; 



LRELEN = 
(Clear rela- 
tional opera- 
tor switch 




IBUF1X 
= IBUF1X+1 



MODE = 
Clear Mode 
LRELEN=1 
Set switch 



I /4 

<QST0P^1 J>JLU037) 




MACH. /yf 



r>*Gz/$OF<jS~" 



ISSUE 

DATE 



DRAWN D V 



PROJEC T NO. 



PROJECT MGR. 



PROJECT NAME 



TASK NO 



T ASK NAME 



APPROVED 



UJ 
I 

ru 



78. Relational operator 
missing. 

79. OR processor. 

80. Same as AND. 

81. > , <> £> ^r =, f 

Processor. 

82. Set logical switch, 
Relational operator 
encountered switch. 
Clear relational opera- 
tor required switch. 

83. Same as AND and OR at 
this point. 



T 



X 



&. 



i LSI = ITEM 

v Set last 

symbo 1 ) 








504, 



79 



IBUF1(1BuT1X)H 

=1 

Bump index 







81 



IBUFKIBUFIX+I 

=4 

Set operator 

level 




82 



LOGEX = 1 
LRELEN = 1 
LRELRQ = 



IBUF1X = 
IBUF1X-1 




CONTROL D AT ACORPORATiON 
SOFTWARE DOCUMENT 

SAMPLE CODE PI 

FLOWCHART Kj 

OECISION TABLE Q 

OTHER ["] . 



DOCUMENT 
CLASS 



DOCUME 
TITLE 



3&S 



"••'■« /3m 



"IMm 



"E/^OF 3S~~ 



:SS-£ 
D»T£ 



DRAWN B v 



PROJECT NO. 



PROJECT MSR 



PROJECT NAME 



TASK NAME 



APPROVED 



IU 
I 



A A 1 38S ,fORMt»i 



f \ 
v j 



' ) 



84. Comma Processor - 
Illegal if not function 
or subroutine. 

85. Check for function or 
subroutine without 
argument. 

86. Plus processor - first 
field. 

87. "-?-, - '" processor. 

88. Check illegal predecessors 

4. -irk -k I 





MODE = 
IBUF1(IBUF1X+Il) 
=0 Level 
IBUF1X*IBUF1X+H 




( 5033 J 



86 



IBUFI(IBUFIX) 

= 11 
Set -f 
operator 



ITEM = 
IBUFI(IBUFIX) 
Hold temp- 
orarily 



M 



IBUF1X= 
IBUF1X+1 
IBUFI(IBUFIX) 
=5 level 5 



CONTROL DAT A CORPORATION 
SOFTWARE DOCUMENT 

SAMPLE CODE £j 
FLOWCHART 

DECISION TABLE _ 

OTHER [7] 



DOC UMEN T 
C LASS 



Z7W 



MA CH . 
TYPE 



"ff" , M 



Mo 



ISSUE 
DATE 



VforJS- 



DRAWN BY 



M&aBemmtOmmvbm 




r^ 



PROJEC T NO. 



PROJECT MGR 



PROJEC T NAME 



TASK NO. 



TASK NAME 



REV APPROVED 



DATE 



I 

ru 



AAtae?' iformirli cait/.i 



) 



5U 



89. 


'*,/" processor. 


90. 


Check for **. 


91. 


Clear symbol table 




pointer. 


92. 


Check mode unassigned 




or integer. 


93. 


•»**!• processor. 



IBUFKIBUFIX 

=6 

(level 6) 



11 



IBUF1CTBUF1X+1 I 
= 7 

level 7 




( 506 . J 



91 



IBUF1X = 
IBUF1X + 1 
IBUF1(IBUF1X+ 

= 



.) 




UJ 

i 

□ 



A A 1 J 35 i("0»Mt' 






n 



94. "NOT" processor. 

95. Must be if statement. 

96. Legal predecessors are 
AND, OR, left parenthesis. 

97. Dimensioned variable. 

98. Check for end of 
statement. 

99. End of parenthesis means put 
statement in TREE. 

100. Go process next field. 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 



SAMPLE CODE 
FLOWCHART 
DECISION TABLE 
OTHER 



□ 



DOCUMENT 
CLASS 



JQ& 




94 



IBUF1X=IBUF1X+ 
IBUF(IBUF1X)=3 
level 3 




SUBSCR 



Evaluate 
subscript 




1 

LRELRQ=1 

Set relational 
operator re- 
quired switch 



100 



MACH. 
TYPE 



DOCUMENT 
TITLE 



4ft/7& 



//to 



&*+& 



TASK NO 






PROJEC T NO. 



APPROVED 



PROJEC T MCR. 



PROJEC T NAME 



LU 
I 

LU 



TASK NAME 



101. CALL statement, processor. 

102. Check for symbol. 

103. If SYMBGL not in symbol 
table, put it in. 

104. Is CALL to same name as 
SUBROUTINE being compiled' 7 

105. Check class unassigned. 

106. Check class external. 

107. Illegal subprogram reference. 



CONTROL O AT ACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE £j 

FLOWCHART ££■ 

DECISION TABLE (__] 

OTHER Pi 



DOCUMENT 
C LASS 



jZfi 




101 



IBUFI(IBUFIX) 

= o 

Clear next 
holder in outppt 



102 



103 





105 




IC(ISYMX) | 

= 6 
EXTERNAL 
subroutine 



106 




STORE 



Put symbo 1 
in symbo 1 



table 



MACH. 
TYPE 



""wrs" #,70 



/fee 



P * G %8^> <; '^' 



DRAWN B Y 





DIAG 



Diagnostic 
11 



PROJECT NO. 



PROJEC T MCR. 



PROJECT NAME 



TASK NAME 



REV APPROVEO 



SHE 



Ui 
I 

UJ 

ru 



AAUBf ,roRWi»n C A 12 7-1 



V J 



o 



108. Check for next field starting 
with left parenthesis. 

109. End of statement? 

110. No previous error detected 
means a variable has been 
used as a subprogram name. 

111. Check for argument flag set 
for no arguments. 

112. Number of arguments differ 
in references to same sub- 
program. 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 



SAMPLE CODE 
FLOWCHART 
DECISION TABLE 

OTM,EP 



M 



DOCUMENT 
CLASS 



DOC 

T 



J%5 




no 




IERR=0 



*■ 



RETURN 



IBUFI(IBUFIX) 

= 23 
Subroutine with 
no argument 



111 




IARGN0 \ Y 
SYMX)=0 



DIAG 



Diagnostic 
21 



MACH. 
TYPE 



■vra T vac/ 



/7M 



ISSUE 
DATE 



1^/0*3$^ 



PROJECT NO. 



PROJECT MSR 



PROJEC T NAME 



TASK NO. 



IARGNO(ISYMX) 
= 1 

(Set no argu- 
ment flag 




.112 



DIAG 



Diagnostic 
12301 



TASK NAME 




APPROVED 



DATE 



UJ 

I 

UJ 

UJ 



in. Make 1W0RK entrv for this 
i_a 1 ling sequence parametei 
list. Set switch on and 
equal to 8192 -* no. of 
left parentheses. 

114. Set parenthesis level. 

115. 5wV>r»»*^ »># < jviuv"/ 1 

116. Go process "( :: . 



CONTROL D AT ACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE Q 
FLOWCHART Jgj 
DECISION TABLE / Q 
OTHER I""! 



aaijss irouMtnn caip7-ii 



DOCUMENT 

C l_AS5 



DOCUMENT 
TITLE 



xm 



4{/rd 



JJJL 



LSWITC=8192 
-LPREN 
IMSW=2 
Set index 



114 



IW0RK<2)=^ 
LPREN 

itfQRKXj.>rt[.0- 

Glear.-Ciode ' 



211 



IBUFI(IBUFIX) 

= 20 
Subroutine 



[BUF1(IBUF1X+1 
=8 level 8 
IBUF1X = 
IBUF1X+3 



M A C H . 
TYPE 



j fig- 



ISSUE 
DATE 



»*«*%&* 35~ 



DRAWN 8 Y 



DATE ^'. (.-/ 




IBUFK1BUF1X-1 
=ISYMX- IS.YMP 
Set symbol 
table pointer 




Ul6 



"^ 



:3*i- 



'.• .«* .»- vS 






Ss'-^i' ^.£s^©i^- "»" 




PROJECT NO. 



PROJECT MCR. 



PROJEC T NAME 



TASK NO. 



TASK NAME 



APPROVED 






"Mt^S^ 









UJ 



Ui 



o 



o 



.Ok 



Process alphanumeric or 
numeric portion of first 
field. 

Put symbol in symbol 
table if not already 
there. 

Check not symbol or if 
unassigned. 

Must be constant so set to 
constant analysis indicator 
(JESWT). 

Set to 260 if 1st field, 
otherwise 149 is set in 
normal loop. 




[200 



ilfi. 



Assign 260 
to IAD 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 



a 



SAMPLE CODE 

FLOWCHART -, 

DECISION TABLE [J 

OTHER [*] 



DOCUMENT 
CLASS 



DOCUMENT 
TITLE 



.ZffiS. 



4C&L 




■* 



117 




IBUFI(IBUFIX) 
= Clear 
type holder 




-LIS 



ITYPE(ISYMX) 

= JESWT 

Set to constan 

analysis indicator 



STORE 



Symbol into} 
symbol tab/e 





" '"■ /%» 



ISSUE 
DATE 



;E^ goF^5^" 



DRAWN n V 



DATE x. 



PROJEC T NO. 



PROJECT MCR. 



PROJEC T NAME 



TASK NO 



TASK NAME 



APPROVED 



DATE 



LU 
I 

LU 

Ln 



121. Check for symbol.' 

122. Computed go to based on 
symbol in symbol table. 

123. Numeric constant. 

124. Check for buffer overflow, 
then recycle. 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE ~| 

FLOWCHART V^ 

DECISION TABLE "[j 



OTHER 



DOCUMENT 
CLASS 



DOCUMENT 
TITLE 



z as fr 



/temp 



1 - ISYMD+1 
(Set up compu- 
ted GO TO) 



121 
'JMODE = 2. NJL 




N 



Assign 230 
to IAD 



122 





123 



MODE = 
ITYPE(ISYMX) 
Set mode 



LSI = 

IBUFI(IBUFIX) 
Set last 
symbol 



Assign 18 
to IAD 



124 




M*C>- 

T V PE 



//^ 



ISSOE 
DATE 



> ^3s- \ 



DRAWN BV 



^M. 



PROJECT NO. 



PROJECT MGR. 



PROJECT NAME 



TASK NO. 



TASK NAME 



REV APPROVED 



UJ 

I 

UJ 
(T 



AA1383 (FORMtBLT CAi;7-| 



A 



'^ 



132. Name is in table of intrinsic 
functions. 

133. Check if number of parameters 
the same. 




aas 



ffQBrfr 



CONTROL DAT A CORPORATION 

SO^A'ARE DOCUVEN"" 

' amp, E CODE 
DEC:*. O'i Ti?.t 




t 1 



T3t)FW =J 



*T 




ITYPE(ISYMX) 

= 1 

Set integer 

type 



r 



■" 




125. Check for left parenthesis. 

126. Set symbol table entry to 
function. 

127. Check for symbol in table 

of intrinsic functions. J=l,3 
and 1=1,16,4. 

128. Found matching name in table 

of intrinsic functions. Deter- 
mine if it is an intrinsic function. 

129. Imbedded character a left parenthesis? 

130. Imbedded character a right parenthesis 
on end of statement? 

131. Imbedded character a comma? 






T=l$unx ^1 







Get char- 
cter (slew 
blanks) 



Assign 280 
to IAD 




N 




128 



K = 

Clear comma 
counter. 



j = isorsx fl agga* 



N 



CONTROL DATACORPORATION 

SOFTWARE OOCUMENT 



SAMPLE CODE 
FLOWCHART 

DECISION TABLE 
OTHER 



a 



DOCUMENT 
CLASS 



DOCUMENT 
TITLE 



X4/S 



MACH. 
TYPE 



MiM. 



/ foe 



!SSUE 
DATE 



pAGE p^ s ' >r ^ r 



;mn\ b v 




K = K+l 
£{ Bump 
comma 
counter 



PROJECT NO. 



PROJECT MGR 



PROJEC T SAME 



TASK NO. 



i*U"»»rXiu»«ii^ 



A3* NiWE 



APPROVEO 



UJ 
I 

Ul 
D= 



n 



o 



D 



134. Check for end of statement. 

135. Check if past imbedded parenthesis. 







CONTROL DAT A CORPORATION 
SOFTWARE DOCUMENT 

SAMPLE CODE \~] 

FLOWCHART Jgj 

DECISION TABLE '[~] 

OTHER | " 1 



DOCUMENT 
C LASS 



2K1 



:ument A r> . fl 




1 



Kl = 1 
Imbedded 
blank counter 



\JCHAR= 



R=4l\ Y 


Kl = Kl + 1 
(Add for 




left paren) 


N 

* 






135 







GETC 



Slew past 
^imbedded 
parenthes 





Kl 



Kl - 1 



(Subtract for 
right paren) 



• * C M . ,j^ 



SUE ' 



on awn d- 



-*-£.- 



PROJECT NO. 



PROJECT MSR. 



PROJECT NAME 



TASK NO. 



TASK N AMfc. 



APPROVED 



UJ 

I 

; uj 




A A ', 3 83 irORMEBL* C A 127-1) 



o 



r^. 



141. Check if terminator, o-f first 
field ■+. 

142. Check if terminator of first 
field -. 

143. Check if terminator of first 
field end of statement. 

144. Terminator a -. 

145. Left parenthesis encountered 

146. Check for external. 




CONTROL DAT A CORPORATION 
SOFTWARE DOCUMENT 

SAMPLE CODE ['} 

FLOWCHART ft/j 

DECISION TABLE |~ 1 

OTHER i : 



CLASS U-A/5 



DOCUMENT * SI , // 



IBUFI(IBUFIX) 
= 12 (Operand 
type) 
UULMI=NULMI+1 




144 







145 



LSWITC = 8192 

LPREN 
(Set subr or f 
call switch) 



an 





147. Save type in ITEM. 

148. Bump index, check for 
overflow and set SYMTAB 
entry number. 

149. Check mode. 

150. Set mode. and level of 
parentheses in intrinsic 
function work table. 




296 




IBUFI(IBUFIX) 
= 18 
function 




Assign 296 
to IAD 



147,148 




Assign 306 
to 1AD1 







IBUFI(IBUFIX) 

= ■8 

Set level 8 




Assign 297 
to IAD 




148 



150 



IW0RK( IMSW+1 ) 
= MODE 

IW0RK(IMSW+2) 
= LPREN 



I 

, Assign 300 

to I A IH 







149 




■* 



IMSW=IMSW+2 
Bump work 
table index 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE i~ ! 

FLOWCHART L *l 

OECISION TABLE 
OTHER 



DOCUMENT 
CLASS 



^ 



MACH. 
TYPE 



DOCUMENT st/J l-~*ft 



/foe 



ISSUE 
DATE 



»»«<%*%•& "- 



DRAWN BY 



7~77 



• V 



PROJEC T NO. 



PROJECT MGR. 



PROJECT NAME 



TASK NO. 



TASK NAME 



APPROVED 



DATE 



! 

ru 



A A l J8^ ,f uNk'i Ft: 




LA JOL.LA RESOURCE CENTER 
IMS Page 3-43 
17DD MASS STORAGE FORTRAN 
CD05*3.1 A/B 



LA JOLLA FACILITY 



o 




V 



MODE - 
CLEAR MODE 



V 

llADl) 





JSYM (1) « 
-JSYM (1) 
(COMPLEMENT 
CQNSMT) 




SYMBOL 
CHECK FOR 
SYMBOL IN 
SYMTAB 



IBUF1(IBUF1X-2J) 
»11(SET 
OPERATOR +1) 



9 



JSYM (2)= 
-JSYM (2) 
(COMPLEMENT 
— CONSTANT) ' 



JSYM (3) = 
-JSYM (3) 
(COMPLEMENT 
CON STAN T)- 



o 



TITLE 






ORG. NO. 


AK1IH 


REVISION 


DRAWN BY 


PROJ. 


DATE 


SHEET 3 OF ..- 



CSD203 



155. Last symbol not ")"? 

156. Symbol not in symbol 
table? 

157. Is type integer? 



CONTROL D ATACORPORATION 

SOFTWARE DOCUMENT 



SAMPLE CODE 
FLOWCHART 
DECISION TABLE _^ 
OTHER [3] 



& 




155 




NULMI = 

(Clear 

holder ' 





Assign 1323 
to IAr 



156 



IBUF1X - 
IBUF1X - 2 
(Decrease 
index) 



STORE 



Store in 
SYMTAB 



-5 



I-TYPE(ISYMX) 
= JMODE - 3 

Type is set. 



157 



OOC'JME 
C LASS 




DOCUMENT 

TITLE 



lL^S 



/7/fW 



■^ rfoo 



ISSUE 
D AT£ 



DRAWN BY 






PSOJECT NO. 



ITYPE(ISYMX) 
= 1 (Set 
type to 
integer 




PROJECT MSR. 



;1E >^ F ^S" PROJECT NAME 



APPROVED 



TASK NO. 



TASK NAME 



AA1385 ifORWiRLf CAI27-1 



o 



o 



r 



.o 



n 



158. Go check predecessor. 

159. Class is function. Check 
for function indicator set. 

160. Not left parenthesis? Yes, go 
to variable processor. 

161. Process arguments as in 
subroutine call. 




ICLASS(ISYMX) 
= 2 




IBUFI(IBUFIX) 
= 35 

Operand to 
constant 







(1323V 



158 



Assign 15 
to IAD 




_ 




Assign 142 
to IAD 



CONTROL D AT ACORPORATION 

SOFTWARE DOCUMENT 



SAMPLE CODE 
FLOWCHART 

DECISION TADLi: 



H 




JLl 
I 

.c: 



162. 

163. 
164. 

165. 
166. 



/£X 



Determine if class is V , _^ / 

set and external is set. 

Check for left parenthesis. 

Check for right parenthesis 
or comma. 

Illegal subprogram reference. 

Check if class says external 
subroutine. 




CONTROL D AT ACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE COOE fj 

FLOWCHART f]j£j 

DECISION TABLE ^\ 

OTHER Qj 




163 



164 





165 



DIAG 



Diagnostic 
11 



IBUFI(IBUFIX) 
= 22 

Function with 
no argument 



166 




iC(ISYMX) ^>— X- 
=6 



Assign 76 
to IAD 



-* 




ITEM = 

IBUFI(IBUFIX) 
(Save in 
holder) 



73 



IBUFI(IBUFIX) 
=IBUF1(IBUF1X> 
+1 Set type to 
subroutine 



DOCUMENT 
CLASS 



DOCUMENT 
TITLE 



J#S 



MACH 
TYPE 



/?/?/rrf 



4ml 



ISSUE 
□ ATE 



•*3fi*3sr 



DRAWN BY 



DATE yjT .. C / 




PROJECT NO. 



PROJECT MGR. 



PROJECT NAME 



TASK NO. 



TASK NAME 



R£\ 



APPROVED 



UJ 






AA1363 (FOHMkRiv CA127-J 



n 



o 



Check for predecessor a 
comma or right parenthesis. 

Check for RELATIVE, statement 
function or Intrinsic function 
and external. Relative external 
is illegal as an argument. 

Subprogram name does not 
appear in external statement. 

Run-anywhere option produces 
relative externals. 




CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART Q 

DECISION TABLE [^} 

OTHER □ 



DOCUMENT 
CLASS 



ins 



oo yi?s T subscr 



rajs* 



iv=isYnx 

ISFLAG-.IX1-C 
IX1-C2>-,IXHU> 
IDl-QKIDl-t?} 
IDl-C3}-,ISS-n 
ISSCJJ ilSSCD >=D 



IVn=TYPE 
IVf1=TYPE 




ISS-C13- 3 

ISS-C3} = 
DIMENSIONS 



ICl-Cli — > 
IC1-C3} = 
IVM 
IV=IBUF1X~2 




m t a v c p h e 17Q0 



PAGE -"OF D 



ISSUE 

DATE 



DRAWN BY 



PROJECT NO. 



PROJECT MGR. 



PROJECT NAME 



TASK NAME 



APPROVED 



UJ 

I 

JC 

0» 



AA13IB (FORMERLY CA127-D 



o 



,r> 



V 





CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE Q] 

FLOWCHART Q] 

DECISION TABLE Q] 

OTHER f~~] 




-><b21 



ID1 -CISSXl 
= CONSTANT 



IC1 -CISSX} 
= IC1 -CISSXJl 

* CONSTANT 





IBUFl-CIBUFDT 

= ivn 

IBUF1-CIV} = 
CONSTANT ONUY 
SUBSCRIPT 



4> 



IBUF1X = 
IBUF1X + 1 






>ffE.TU*N* 



DIAG 



EM = 
ILLEGAL 

subscrip; 




DOCUMENT 
CLASS 



JLH5_ 



MACH. 



DOCUMENT 
TITLE 



SUBSCR 



'ACE ^)OF 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 



PROJECT MGR. 



PROJECT NAME 



TASK NAME 



APPROVED 



UJ 
I 

Ln 
o 



AA138S (FORMERLY CAJ27-I) 



o 



r\ 



-.r> 




IX1-CISSX> 

ISYM = 
ISYflP 




Yes 



ISFLAG 



CONSTANT = 
- CONSTANT 
ISFLAG - D 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE Q] 

FLOWCHART F^] 

DECISION TABLE [ 
OTHER 





CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE Q 

FLOWCHART Q 

DECISION TABLE □ 

OTHER |~~] 



ioi-ca>=iDi-cs>-i 

IDl-C3>=ID3,"Cr>-l 



IC1-C3>=IC1-C2> 

*i|ss-ci> *iss-ca 
*ivn 

ici-ca>=ici-C2>* 
isso> *ivn 



JSUM--CISS-Q 
{ID1-L2J+ID1 
*ISS-C2}} + 
IDl-C3}*IVt1 



y 

31 



J = NO. 
CONSTANT 
MULTIPLIERS 



ETURN 




JL 



IBUF1X = 
IBUF1X + a 

IBUF1-CIV} = 

SUBS CRI PT J^PE 



IBUFl-CIBUFDl+l} 
= VARIABLE 

IBUFl-CIBUFl):* 
= VARIABLE "YPE 




f ETLiRN 



ibufi-cibu c :k 

= JSYH 



(LbSl) 



DOCUMENT 
CLASS 



ins 



ty% 17 DO 



document r>t>nrra 

TITLE ^UC^U 



^ CE 5 OF b 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 



PROJECT MCR. 



PROJECT NAME 



TASK NAME 



APPRO VET 



UJ 
I 

Cn 
RJ 



AA1385 (FORMERLY CA127-1) 



o 



v j 



A 



o 



o 




x> 



ibufi -cibuf: 

IBUF1X 
IBUFI -CIBUFtX+l> 

IBUFlilBUFl 
LEVEL 



(+1> 



IBUF1X = 
IBUF1X + 1 



TBUFTTTBTJFT 
+FF = C1+1+ 
C2+2*C3+3 



<> 



>V 



IBUF1-CIV=3> 
JNODE IN 
COMPLEX PAR[T 
OF SUBSCRIPT 



TF 



IBUFI CIVJ 
= SUBSCRIPT 
TYPE 



J7 

RETUR1 




CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE Q 

FLOWCHART □ 

DECISION TABLE [~^\ 

OTHER ■ ['7j 



DOCUMENT 
C LASS 



ins 



DOCUMENT 
TITLE 



SUBSCR 



PAGE t OF {3 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 



PROJECT MCR. 



PROJEC T NAME 



TASK HO. 



TASK naml: 



3E 



APPROVED 



LU 

I 

Ln 



CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER DIVISION 

DOCUMENT n ASS IMS ; , PAGE NO. _________ 

PRODUCT namf 170D MASS STORAGE FORTRAN 

PRODUCT MODEL NO C00_*3.1 A/B MACHINE SERIES __________£_ 

3.LI.3 Subroutine TREE 

This routine picks up from IBUF1 an arithmetic expression 
that has been initially processed by ARITH and converts 
it into a tree form in IBUF2 for output. In order to 
make a treei multiple passes are made over the statement. 
Each pass finds the primary operator and its related 
operands. If the operand is a subexpression! itn in 
turni is broken up in a similar fashion and represents 
a lower level or branch of the tree- Each level of the 
tree is ordered by operator followed by its operands. 

For example : 

xa * a + b * c 
is scanned and broken into the subexpressions: 

x a * a 
and b * c 
The operator + is output 

x a * a 

is scanned. The operator # and the variables x, a and 
a are output then 

b * c 

is scanned. The operator * and the variables b and c 
are output . 

The form of the Arithmetic tree set up in IBUF2 is as 
follows : 

example = C+D 

WORD 1 -1 Tree indicator 

WORD 2 ID n = words in expression {from word l 4 

to end} 
WORD 3 2 node of expression -£l = integern 2=reali 

3=double> 
WORD «4 11 Operator {see list} 
WORD S 2 n = number of operands 
WORD _ l » Pointer to 1st operand 

" Pointer to next operandn etc 

. ■ 

WORD -CN} N = -C5 + number of operands} 

« 

WORD -CZ} Operands follow operand pointers Q_^. 

•Csee list} 



CA I3i-1 REV 10-67 



o 



DOCUMENT CLASS 
PRODUCT NAME_ 



CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER 



ins 

1700 MASS STORAGE FORTRAN 



DIVISION 



PAGE NO.. 



PRODUCT MODEL mh C005*3*l A/B 



MACHINE SERIES 



3-S4A 



1700 



WORD 


7 


7 


WORD 


fi 





WORD 


1 


24 


WORD 


10 


-> 


WORD 


11 





WORD 


12 


24 


WORD 


.13 


-» 



example {cont'd} 

Pointer to second operand 
Normal/inverse switch 
Operand type -Csee list} 
SYI1TAB Pointer to D 
Normal/inverse swithc 
Operand type 
SYMTAB Pointer to C 

Operand pointer = first word number of operand - word 

number of operator 

that isn 4 = fl - 4 
that isn 7 = 11 - 4 

Note: An operator on a lower level is treated as an 
operand by a higher level operatorn therefore! 
an operator may be both an operator and operand 
depending on which level is being processed. 



O 



O 



CA 13i-l REV 10-67 



o 



> 



CONVQOe. DATA COKPOaAYSOM 



DEVELOPMENT 08 V 



DOCUMENT CLASS 

PRODUCT NAME 17D [ 
PRODUCT kjh COO 5 



IMS 



MASS STORAGE FORTRAN 



SOFTWARE (DOCUPJ1EWY 
PAGE NO.. _3-S£ 



.VERSION. 



2.0 



.MACHINE SERIES 



1 7 M 



c 



TREE is called by the subroutine A1UTI1. In the 2. DA version, 
if ARITII detected mixed mode arithmetic in the expression, 
TREK calls MODMXR just before returning '. o ARITII. 

Subroutines used: DIAG, GETSYM, PUNT, MODMXR. 

Switches and Tables during tree building 



IPERAT 

IBUF2 

IBUF2X 

IBUF1 

IBUF1X 

LSI 

LP REN 

NOOP 

MINUS 

NLP 



ISAV 

LSWITC 

1SSX 

IVM 

1SFLAG 

I WORK 



ISTWK 

LO 

1MSW 



LRELRQ 
tRELEN 



Current operator 

Table where output entry is built 

IBUF2 indexer 

Table containing input expression 

IBUF1 indexer 

.NOT. operator in effect switch 

IBUF1X value on which to stop current subexpression 

ana lysis 
Number of operators this level 

Leading variable preceded by an operator swtich 
First non-left parenthesis operator has been encounter* 

switch - used in determining existence of leading 

sign 
IBIJF2 index of operator this level 
Last operator was a function switch 
Level of current operator 
Start of expression in IBUF2 
First operator switch - used in counting leading 

left parens 
History of expression being built in IBUF2 

Four words per entry 

Word 1 IBUF1 index on which to stop subexpr 

analysis (Dummy entry indicator for .NOT if 0) 

Word 2 IBUF1 index for operator, this subexpression 
or: Assumed operator indicator (-operator in upper 
six bits and IBUF1 index in lower 10) 

Word 3 IBUF2 index of operand pointer, this operand 

Word 4 IBUF2 index of operator this level 
IWORK index where entries, this level, start 
Class of prior operator 
Integer divide operator switch 

= no prior operator 

1 = logical 

2 — relational 

3 — arithmetic. 
IWORK index 

IBUF1 index at which to start current subexpression 
analysis 



NOTE: Each operand (operator) except the first is preceded by a 
normal/inverse indicator. 



CA138 i 



CONTROL DATA CORPORATION 



DEVELOPMENT DIV 



POCUMENT ft ass TMS 

PRODUCT namf Ji700 HASS STORAGE FORTRAN 
PRODUCT NO.. 



SOFTWARE DOCUMENT 

___PAGE NO. 1-SL 



njur 



VFPSIO N 5-D 



.MACHINE SERIES 



17QQ 



Operand Types within Trees (Operators are Also Operands) 

1. COMMA - does not appear in File 2 

2. AND 

3. OR 

4. NOT - does not appear in file 2 

5. LT 

6. GT 

7. LE 

8. GE 

9. EQ 

10. NE 

11. + 

12. - does not appear in File 2 - represented by inverse + 

13. * ( -fadnverse *) 

14. non-reorderable -r (integer) 

15. ** 

16.' ( does not appear in File 2 

17. ) does not appear in File 2 

18. Function 

19. unused 

20. subroutine 

21. unused 

22. function with no argument 

23. subroutine with no argument 

24. non-subscripted variable 

25. variable only sbuscripted variable 

26. increment only subscripted variable 

27. variable and increment subscripted variable 

28. complex subscripted variable 

29. non-subscripted partial variable 

30. variable only subscripted partial variable 

31. increment only subscripted partial variable 

32. variable and increment subscripted variable 

33. complex subscripted partial variable 

35. numeric constant 

36. calling sequence label - pass 4 generaged 

37. material constant 



Types 22 - 24, 29, 34, 35 are two word entries 

WORD 1 operand type 

WORD 2 symbol table pointer 

Types 18-21 take two words tp express type 

WORD 1 operand type 

WORD 2 symbol table pointer 

WORD 3 no. operands etc. 



CONYCiOL DATA COBPOQAYION 



DEVELOPMENT E>»V 



^ C "^ t N k T ,^ SS 17 nn MASS STOKAlb hOKFRCT 
PRODUCT mo C005 ^ nfl ^' 5 ' a 



SOFTWARE fcOCUtaEMY 
PAGE NO_^ 1 



VERSION. 



MACHINE SERIES 



170Q 



C 



Types 25 - 30 are of the following form 

WORD 1 25,30 

WORD 2 symbol table pointer 

WORD 3 24,29 for subscript variable 

WORD 4 symbol table pointer 

Types 26 and 31 are of the following form 

WORD 1 26,31 

WORD 2 symbol table pointer 

WORD 3 constant subscript 

Types 27 and 32 are of the following form 

WORD 1 27,32 

WORD 2 symbol table pointer 

WORD 3 constant portion 

WORD 4 24,29 for subscript variable 

WORD 5 symbol table pointer for subscript variable 

Types 28 and 33 are of the following form 

WORD 1 28,33 

WORD 2 symbol table pointer 

WORD 3 constant portion 

WORD 4 operator (+ or *) 

WORD 5 no. operands pointers operands 



Word 
1 
2 

3 
4 
5 
6 

7 

8 



This routine picks up 
an arithmetic ex- 
pression that has 
been initially pro- 
cessed by ARITH from 
IBUF1, converts it to 
tree fore, and places 
it in IBUF2 for output . 

Tree Form 




Initialize 

_ . , . / , \ switches and 

Tree indicator(-l) , ,, . . j 

„ , buffer mdecej 

# of words in 

expression 

Mode of expression 

Operator 

# operands 

pointer base operator 
this level 
Operand norma l/invers£ Set tree 

indicator(-l) 
into 1st word 



Operand 
Etc. 



of IBUF2 



MODE > 

IBUF2(+2) 



Bump IBUF2X 
-^ 3 and 
save in IYM 



1002 



JDUM area 



±. 



128 — > ISSX 

[ level of 
current 
operator) 



1004 



IBUFl(O) 
> ITEM 




Yes 





Yes 




1020 



No 



HL 



l_i» NPL 

(first non le 
parenthesis OP 
encountered 



:t 



1004 
IAD 




1016 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE ^j 

FLOWCHART gg 

OEClStON TABLE "^ 

OTHER ™ 



DOCUMENT 
CLASS 



JjMS. 



DOCUMENT 

title T/TS/r 



MACM. 

type /<?g& 



!SSUE 
DATE 



PACE /O^^ 



DRAWN BY 



CBOJECT NO. 



PROJEC T MSR 



PROJECT NAME 



TASK NO. 



TASK NAME 



APPROVED 



LU 



(J-I 

03 



o 



■r*\ 



r~\ 



No 



If operator is 24 or 29 iQ06 
go to statement 1007 and 
bump +4. If operator 
is 25, 30; go to 

1008 and bump -3. If 
operator is 26, 31; go to 

1009 and bump +1. 

This return (IAD) is ini- 
tially made to 1004 to pick 
up next operand from 
IBUF 1 . 



Add fixed increment 
at IBUF1 (IBUF1X+3) 
to IBUF1X setting +3 
and return to IBUF IX. 




1QQ£. 



Bump IBUF IX 
+2 (to pick 
up next oper 
from IBUF2) 



a i 




» Yes 



No 



k. 



IBUFK+3) 
+IBUF1X+3 
-> IBUF IX 



Bump IBUF IX tc 
bypass three 
entries in 
IBUF1 






CONTROL DATACGRPORATION 

SOFTWARE DOCUMENT 



SAMPLE CODE 

FLOWCHART 
DECISION TABLE 
OTHER 



□ 

CI 

□ 
□ 



DOCUMENT 

CLASS _j^/ w 



DOCUMENT 

T.TLE T/?Afi 



DRAWN DV 



MACH. 



PAGE Z.OF ^^- 



ISSUE 
DA TE 



° A . TE ..V? 



r/j 






PROJECT NO. 



PROJECT MSR. 



PROJEC T NAME 



TASK NAME 




I 

Ln 



5. Operator is less 1020 
than 22 to come here. 

6. ISSX = level of 
current operator, 
initially 128. 

7. ISFLAG = first opera- 
tor switch used in counting 
leading left (. 




1025 



U015)* 



Yes 



Yes 



Yes 



■^Tl03h 




1040J 




Yes 




O 




102( 



■W1030J 



-M 1006 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE Q 
FLOWCHART 
DECISION TABLE 
OTHER □ 



DOCUMENT _^ ..j. 

cla33 ^ms 



DOCUMENT , . -. r 



DRAWN BY 



-* /7#a 



ISSU5 
D*T E 



! OE^/OF»?^. 



•?-6i 



PROJECT NO. 



PROJECT MCR. 



PROJECT NAME 



TASK NAME 



Kg\ APPROVED 



DATE 



I 



r 






o 



v_ 



8. Illegal use of relational 
operator. 

9. Illegal use of NOT. 

I 10. LRELRQ = I WORK index. 

HI. Error - IWORK table 
exceeded. 

12. N00P=number of operators 
this level. 






O 




Yes 



DIAG 
18 





Yes 



1 



RETURN 



No 






No 



XQ22 V 



IBUF 1X 
IWORK(l) 



±. 



12 



Bump LRELRQ 

+ 4 
Bump NOOP 

+ 1 



&1 



IBUFl(O) 
— >IPERAT 
(Current 
operator) 



JLL 



PUNT 



Yes 



,0 



T ! 1-»-r-r 7 "TT?7 — : 



CONTROL DATA CORPORATION 

SOFTWARE DOCUMENT 

SAK5PLE CODE 
FLOWCHART 
DECISION TABLE 
OTHER 



DOCUMENT —- ..^^ 

CLA5S AMS. 




13. IPERAT = 14 
• AND. 
IBUFK+2) f 0. 

14. NPL = non left paren- 
thesis operator for 
determining leading 
sign. 

15. ISTWK = IWORK index where 
entries for this level start 

NOOP = number of opera- 
tors this level. * r 



1026 





No 



1015 



<r 



1004 



IAD 



±. 



Bump IBUF1X 
+-2 or +3 
depending on 
OP code 



Yes 



1->IDSW 




r IAD 



IBUFli 
= 11, 12 



Yes 



14 



No 




1027 



< Xnlp = o\> 






No 


\ 10 22 J 


Yes 








V 










l-> MINUS 






IBUFK+1) 
— ^ISSX 










/\ 


1028 V 
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1->ISFLAG 






ISTWK > 


NLP 


v ^ 


LRELRQ 
0— >N00P, 


/ 








IDSW 



CONTROL D AT ACORPORATION 

SOFTWARE DOCUMENT 



SAMPLE CODE 
FLOWCHART 
DECISION TABLE 
OTHER 



a 



a 
a 



DOCUMENT _ 

CLASS X/JS 



DOCUMENT 

TITLE 77f ££ 



DRAWN BY 



M*CH 
TV PE 



/fta 



ISSUE 
DATE 



we^fbF^. 



^ 



PROJECT NO. 



PROJECT MGR. 



PROJECT NAME 



TASK NAME 



REV APPROVED 



DATE 



UJ 
I 

tr 
ru 



AA1385 IFOBMERLY CA127-1I 



'^ 



V J 






16, 

17, 



.9, 



LPSWIT is count of non- 1027 
imbedded ). 

Is this end of 
expression? 

Reset level back 
to maximum. 

LRELEN = IBUF1 index 
at which to start 
current subexpression 
analysis. 

LPREN = IBUF1X value 
at which to stop 
current subexpression 
analysis. 




Yes 



MINUS 




CONTROL DATACORPORATION. 

SOFTWARE DOCUMENT 

SAMPLE CODE Q 

FLOWCHART f~j 

DECISION TABLE Q] 

OTHER fj] 



DOCUMENT 
CLASS 



x#s 



DOCUMENT s- _ -- 

T.TLE T/l£C 




Bump IBUF1X 

+ 2 
Bump LPSWIT 

+ 1 



1041 



LPREN - 2 * 
LPSWIT 
3> LPREN 



y 19 



LRELEN + 2 * 

LPSWIT 

> LRELEN 




-^U^ 



MACH. 
TY PE 



/&£. 



PACE /(OF c?4 



DRAWN D Y 



TE 3~4_7 



5^^ 



PROJECT NO. 






APPROVED 



PROJECT MCR. 



PROJECT NAME 



TASK NAME 



UJ 
I 
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20. End of expression comes 
here. 

21. IVM = start of ex- 
pression in IBUF2. 

22. Subroutine with 
no argument . 



1011 
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N0OP = 




Yes 



^ 



LRELEN. 



TBUF1X 



1060 




Bump IBUF1X 
+ 2 



No 



.& 



11 



IBUF2(0) 
1— *IBUF2(1) 



No 



■^Uoj) 




3— ^ibufc-:' 1 

0-^ IBUF(^3^ 
Bump IBUF2X 
+ 4 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE j"~] 

FLOWCHART ||| 

DECISION TABLE □ 

OTHER □ 



DOCUMENT ^..^ 
CLASS XMS 



DOCUMENT ._ -. 

TITLE Ttf£f 



DRAWN BY 



MACH. 
TYPE 



J$HL 



ISSUE 
DATE 



f OF ^f ~ 



tZL^^ 



PROJECT NO. 



PROJECT MGR- 



PROJECT NAME 



TASK NO. 



TASK NAME 



R8V APPROVED 



DATE 
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IBUFl(O) 
>IBUF2(0) 



23. Put variable type and 
symbol table pointer 
into 1BUF2. 

24. Subscript is at least 
one word longer. 

25. Complex subscripted 
variable. 

26. 1002 same as 1004 except 
JDUM is zeroed out and 
ISSX set to 128. 

27. Increment to subscripted ^IBUF2(1) 
variable. 

28. Variable only 
operator. 



1160 
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IAD 



Yes 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 



□ 



SAMPLE CODE 

FLOWCHART £j 

DECISION TABLE □ 

OTHER [J] 
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DOCUMENT .«».„—» 
CLASS ^,4fv> 
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71 



IBUFK+2) 
— > IBUF2(0) 



Bump 
IBUF2X 
+ 1 



Yes 



1061 



XL 



Bump 
IBUF1X 
+ 4 



MACH. 
TYPE 



/joa 



DOCUMENT . _ _- 

TITLE //?C& 



PACE ^OF Z.f- 



ISSUE 
DATE 



DRAWN DV 



2±I!L>3~™jf 




PROJECT NO. 




Nd 



JL 



IBUFK+3) 
$> IBUF2(0) 



W 



Bump 
IBUF2X 
+ 1 



IBUF1X 

— 5> LRELEN 



PROJECT MCR. 



PROJECT NAME 



Yes 



TASK NAME 



iC™fc 



7\ 



Yes 




yL 



IBUFK+4) ^ 

IBUF2(0) 
Bump IBUF2X 
+ 1 
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no; 



iRE\5 APPROVED DATE 



LU 
I 

cr 

Ln 



29. 



30. 



31. 



32 



Last operator was a 
function switch. 

ISQV = index to 
operator this level. 



1161 



1063 



IAD 



Get page and symbol 
table pointer that ISYMX 
points to. 

Number of arguments 
differ in references to 
same subprogram. 




Yes 




30 



^ 



IBUF2(ISAV 



ISYMX 



V 21 



GETSYM 



true 



i^_32_ 




^ 



false 



2— >IARGN0 

(ISYMX) 
— *LSWITC 




"Ml 160 



DIAG 
13 
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SOFTWARE DOCUMENT 



□ 



SAMPLE CODE 

FLOWCHART gg§ 

DECISION TABLE F] 

OTHER □ 



DOCUMENT ~r-*jl<- 
CLASS JZ-A7S 



DOCUMENT ___ 



MtCH. 
TY PE 



tf(HL 



NUMBER 



ISSUE 

DATE 



P>CE f °r<£4- 



DRAWN BY 



■ mi i ■■ > ITmaaSm^cm 



PROJECT NO. 



PROJECT MCR. 



PROJECT NAME 



TASK NO. 



TASK NAME 



APPROVED 



UJ 

I 
or 

cr 



AA)38S (fOHMfRLY CA127-1) 



o 



v o> 



■( 



33. We found an 

imbedded (, slew to 
). 

134. Non-reorderable. 

|35. End of expression. 



1020 




1031 w 



Bump 


IBUF1X 


+ 2 


1032 \ 


,'35 




CONTROL D AT ^CORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE Q 

FLOWCHART fp] 

DECISION TABLE Q 

OTHER [J] 



DOCUMENT 

CLASS f^fJS 



DOCUMENT 



J^3 



PROJECT NO. 



PROJECT MGR. 



K 



APPROVED 



ISSUE 
DATE 



M2Lr£^_ 



PROJECT NAME 



I TASK NO. 



DRAWN O V 



DATE ^;-~(?J j TASK N; 



3D. 



Li 



i 



UJ 

i 

tr 



• v r << i v Cai'7- 
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Yes 



.& 



Decrement 
ITEM - 1 



Yes 





No 



1035 



1032 



IAD 




1031 




Yes 




1001 



No 




CONTROL D AT ACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE [H 

FLOWCHART [§ 

DECISION TABLE Q 

OTHER Q] 



DOCUMENT _„. 



OOCUMEN - 
TITLE 



7/f£f 



DRAWN BY 



MACH. 
TYPE 



/%*9 



ISSUE 
DATE 



PACE//OF^ 



^/ 



PROJECT NO. 



PROJECT MCR. 



PROJECT NAME 



TASK NAME 



REV 



APPROVED 



I 

o 
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o 



mi 



36. Gotten to by assign 
LAD. 

37. IUORK Index. 

38. NOT operator in 
effect switch. 





Decrement 
LSI - 1 



LQS-L-^ 



Set # of word* 
in expression 
in IBUF2 



Z0A*»\y 




/VICJ)MXR 
FL.CAT ca. I is 



£ 



CONTROL DAT ^CORPORATION 

SOFTWARE DOCUMENT 
SAMPLE CODE ~J 

Flowchart Ijg] 

CEClSiO^ TABLE ,_] 
OT«£R "~ 



DOCUMENT 
C LASS 



MICH. 
TYPE 



DOCUMENT __^, _ 



Jfoa 



. p * c£ /?£Jjb^'.-1'!: 




^>n i;ECT MO. 



RE\ 



PBQjEC t MSFi 



approved 



I 

tr 

-0 



- 3s*i: : A*5i>t«a««rCi; 



39. Number of operators have 
just been found to 
be NZ (NOOP). 

40. ISSX = level of 
current operator. 



Level 


Op 


erator 







» 


1 




OR 


2 




AND 


3 




NOT 


4 




relational 


5 




+ - 


6 




* / 


7 




** 


8 




( ) function 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART HgJ 

DECISION TABLE Q 

OTHER [ | 




Yes 



1250 




No 



Yes 



f 1052 



Yes 




-» 



Bump LSI 

+ 1 

(NOT operatorl) 



O 




No 



Yes 




1051 




No 



Yes 




-* 



->L0 



DOCUMENT 

CI ASS 5T/SJS 



MACH. 
TYPE 



DOCUMENT 
TITLE 



77f& 



ifpg 



ISSUE 
DATE 



■&>*<* J 



DRAWN BY 



KOMmSwM 



PROJECT NO. 



PROJECT MQR. 



PROJECT NAME 



TASK NAME 




1055 



*© 



APPROVED 



llJ 
I 

I ) 



AA1385 (FORMERLY CA127-H 



o 



v ; 



o 



41. Illegal operator 
or operand. 

42. Get page # and 
symbol position. 

43. # of arguments differ 
in references to same 
subprogram. 






LSWITC=0 



No 



Yes 



false 



true 



-1L 



IBUF2(ISAV+D) 
^ISYMX 



±42. 




GETSYM 




1055 



Yes 






Yes 



2k. 



1150 >IAD 

ISAV+1 $» 

IBUF2X 
0— ^ LSWITC 



Yes 



NOOP+2 > 

lARQJOClSYMX; 






-ML151 
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SOFTWARE DOCUMENT 



SAMPLE CODE 
FLOWCHART 
DECISION TABLE 

OT HER 



a 



DOCUMENT 
CLASS 



J&VS 



type /'/aa 



DOCUMENT „_^. 



P*SE/^OF^ 



DATE Jf ' /*■*/ 






PROJECT NO. 



|REV 



PROJECT MGR 



PROJEC T NAME 



TASK NAME 



APPROVED I DATE 



J... 



I? 



44. Look for odd numbers 
(nested nots). 



CONTROLDATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE Q 

FLOWCHART [^] 

DECISION TABLE [^] 

OTHER Q] 



1251 


44 


I = LSI/2 








DOCUMENT 
CLASS 



^M ^ 



IPERAT 
and 



MACH. 
TYPE 



DOCUMENT __-„_ 



{?*& 



ISSUE 
DATE 



PAGE/ foF ^ ^ 



DRAWN BY 



■ > i *Tl{ i—i rafc «« a— 



PROJECT NO. 



PROJECT MGR. 



PROJECT NAME 



TASK NO. 



TASK NAME 



Jvw\ 



REV APPROVED 



DATE 



UJ 
I 

ru 
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o 
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i 



45. ISSX contains a rela- 1052 
tional operator (page 
13). 



r 



6. If written, AiRL, B, cha 
to .RL. A + B, else 
make it .RL. A - B. 




1252 



Yes 



No 




1251 



Yes 



No 



Bump 
IPERAT 



+1 




Yes 



A 



No 



Decrement 
IPERAT 

-1 




Yes 



No 



.&. 



LO 



iL 



IPERAT 5> 

IBUF2(0) 



1 ^IBUF2(+1 

3 — 2>IBUF2(+2 
0— $>IBUF2(+3 




5006 



Bump 
IBUF2X 



+ 4 



/ 46 



IW0RK(-3) 
> I 




CONTROL D ATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE 
FLOWCHART 
DECISION TABLE 
OTHER Q] 
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No 



1057 



JL 



12 



IBUFl(I) 



CONTROLD ATA CORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART jg] 

DECISION TABLE Q 

OTHER Q 



1 053 

ll(+)- 



Yes 



IBUFl(l) 




1058 



Yes 



* 



ll-^IBUFl(I) 
11->IBUF1(I+2B" 



■} 



1054 



11- 



IPERAT 



"> 



Jd 



IBUF 1(1+1) 




DOCUMENT -»..* 

class Je-£§S 



MACH. 
TYPE 



DOCUMENT _ — _ 

TITLE 7W£& 



/7oo 



ISSUE 
DATE 



PAQz/forZM- 



DRAWN BV 



PROJECT NO. 



PROJECT MQR. 



PROJECT NAME 



TASK NAME 



REV 



APPROVED 



DATE 



UJ 

I 



AAI389 (FORMEf- 



' / > 



47. Check number of para* 
meters this call vs. 
number of parameters 
for any prior call. 

48. Operator = 1, MINUS 
set NZ, NOOP = 1. 



10552 47 





No 



Yes 



1152 > 

IAD 



Yes 




-*T1154 




Yes 



Decrement 
operator 
-1 
(IPERAT) 



^> 



No 



/ll70) 




1151 



CONTROL DATACORPORATIOM 
SOFTWARE DOCUMENT 

SAMPLE CODE Q 

FLOWCHART f|[] 

DECISION TABLE ~] 

OTHER □ 




oaa Ln 



49. NOT operator set up in 
IWORK but not in 
IBUF2. 

50. Back to start. 



1170 



49 



-1 



IW0RK(4) 



IW0RK(-3) 
+2 ? 

LRELEN 



LRELRQ„ 



U71 ^ 



ISTWK 



LRELEN 



IBUF1X 
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CONTROLDATACORPORATION 

SOFTWARE DOCUMENT 



SAMPLE CODE 
FLOWCHART 
DECISION TABLE 
OTHER 



a 

3 



DOCUMENT 
CLASS 



JT& S- 



DOCUMENT 

T.TUE r fl€£ 



MACH. 
TYPE 



1151 





/7<>4 



ISSUE 
DATE 



i/fo^f 



DRAWN BY 



PROJECT NO. 



PROJECT MOR. 



PROJECT NAME 



TASK NAME 



REV 



APPROVED 



DATE 



LU 

I 

-vl 

cr 
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() 



A 



I — 

51, 

52, 

I 

[53. 



Operator was function 
or subroutine. 

Are we at start of 
this levels entries 
in IWORK. 

ISTWK = start of this 
level in IWORK. 



PUNT 



Tel" 



1059 



51 



1 — $>LSWITC 
IBUF2X-^LSAV 

IPERAT > 

IBUF2(0) 



2k. 



IWORK(-3)+2 
— ^ I 

IBUFl(J)— > 
IBUF2(1) 



iL 



Bump 
IBUF2X 



+1 



1075 




TTo 



N00P $> 

IBUF2C+1) 



±1 



Bump 
IBUF2X 



+2 



Yes 




LRELRQ - 3 
^> I 



IWORK(I) J 



Yes 



1072 



"> 



IWORK(I) 



1172 



±. 



53 



ISTWX+2 
2> I 




No 



Decrement 1-4 
to pick up 
next prior 
operand 



7T 



Move operand 
in IWORK up 
one position 
in IWORK 
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FLOWCHART fig 

DECISION TABLE Q 

OTHER | | 



DOCUMENT 
CLASS 



DOCUMENT 
TITLE 



~ms 



DRAWN OV 



MACH. 
TYPE 



1$££l 



ISSUE 
DATE 



PAGgs&feFc^ 



JE£$. 



PROJECT NO. 



PROJECT MCR. 



PROJECT NAME 



TASK NAME 



3RSV 



APPROVED 




54. Put in IBUF2, settings 
for operand + operator 
in I WORK. 

55. Put in stop pointer. 

56. Clear out last 
stop pointer. 



57. 
58. 



1073 



J = location of PTR 
in IBUF2. 

Set new starting 
item. 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 



SAMPLE CODE 
FLOWCHART 
DECISION TABLE 
OTHER 
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54 



Decrement 
N00P - 1 



ikl 



IBUF2X + 
N00P-rIW0RK( I 

ISAV ^ 

IW0RK(I+1) 



& 



55 



IW0RK(I+3) 
IW0RK(l-2) 



Bump I 
+ 4 



document 
Class 



DOCUMENT _ 

T1Tt - E --:-7ffigg 



DRAWN BY 




Yes 



IBUF2X + 
IBUF(-l) 

— > IBUF2X 



^ 56 



IWORK 
(1-6) 



Decrement 
LRELRQ 

- 4 



MACH. 
TYPE 



ISSUE 
DATE 



PAg # R q y , 
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■* 



LRELRQ > 
ISTWK 
IW0RK(+2) 

> ) 



Y V 



IBUF2X - 
IWORKC+3) 

IBUF2(3) 



£_58. 



IW0RK(+1) 

.AND. 
1023 I 



PROJECT NO. 



PROJECT MGR. 



PROJECT NAME 



TASK NO. 



TASK NAME 




Yes 




1 + 2 — > 

LRELEN 




RE\ 



APPROVED 



DATE 



I 

OS 
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( ) 
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59. Set new IBUF1 index. 

60. LO = class of prior 
operand. 




w 



If operator ip 
IBUF1 ) or 14 
bump LRELEN 
+ 1 



V59 



LRELEN 
^IBUFIX 




No 



JdL 



*> 

IBUF2(0) 



I 60 



No 




1077 



Yes 



!_$> IBUF2(0) 



^Jo7^ 
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YeT 




TET" 



No 



LO 



^1075^ 
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DECISION TABLE [_] 

OTHER ( | 



DOCUMENT 
CLASS 
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DOCUMENT 
TITLE 
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DRAWN BY 



MACH. 
TYPE 



/?£<?■ 



PAC^O^ 



^r. 



PROJECT NO. 



PROJECT MGR. 



PROJECT NAME 



TASK NO. 



TASK NAME 



APPROVEO DATE 



UJ 

I 



61. Shift right 10 
positions. 

62. Back to beginning, 



107&. 



SlL 



-IWORK(-l) 

11024 



I > 

LRELEN , 
IBUF1X 



Yes 






CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE COOE □ 

FLOWCHART Hfl 

DECISION TABLE (_j 

OTHER (~1 



DOCUMENT 
CLASS 



jr/ys 



MACH. 
TYPE 



OOCUMENT __ — 



/?on 



ISSUE 
DATE 



p'SEsff^ofo 



DRAWN BY 



wuB&ammBsSm&m* 



No 
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-> LO 



Bump 
IBUF2X + 1 
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Yes 
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PROJECT NO. 



PROJECT MCR. 



PROJECT NAME 



TASK NAME 



APPROVED 



UJ 
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o 
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o 



63. This location assigned to' ^2 
IAD on page 18. 

64. Error - only one 
operand allowed. 

65. Prior operator switch; 
= none. 



64 
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No 




Yes 



U$ 8 jf 



-16384 f> 

IW0RK(+1) 



Yes 





-} 



1152. 



11 



IPERAT 
(+) 



"> 



IPERAT* 
(-1024) 
-~£IW0RK(+1) 



Yes 



-12288 — > 
IW0RK(+1) 



15SL 



IW0RK(+1).AND. 
$FC))+LRELEN 

— > IW0RK(+1) 



M. 



Bump 
LRELRQ 



+4 




Yes 




IBUF2X 
5> ISAV 



^ 



IPERAT 
> 

IBUF2(0) 



14 



IPERAT 
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PROJECT NAME 
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Subroutine MODMXR 

This routine is called from TREE only if a mixed mode 
expression is being processed. It transforms the tree 
form generated in IBUF2 to indicate calls to function 
operators as necessary. Mixed mode expressions and 
their related calls are as follows: 



INTEGER - REAL 

INTEGER - DOUBLE PRECISION 

REAL - DOUBLE PRECISION 



call FLOAT 
call DFLT 
call DBLE 



Please refer to section 3-L4-3 for a description of the 
tree form generated by TREE- 

inserted in the tree at 
mixed mode expression 
one integer branch on 
are grouped so that the 
before the call to FLOAT- 

s DOUBLE PRECISION and 
branch or more than one 
these branches are grouped 

er operation is performed 

e real operation is per- 
Integer divides are 

a function becomes the 
the previously mixed 



One or two lower 1 


evels may be 


each mixed mode level- If the 


is REAL and there 


is more than 


the same leveln th 


ese branches 


integer operation 


is performed 


If the mixed mode 


expression 1 


there is more than 


one integer 


real branch on the 


same leveln 


respectively so th 


at the integ 


before the call to 


DFLT and th 


formed before the 


call to DBLE 


not reorderable- 


The call to 


operator of a sing 


le branch on 


mode level- 





For example 



D is a double precision variable 

R is a real variable 

I is an integer variable 
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The expression: D + I + R*I + J + R 
generates the mixed mode tree. 




Level 1 

R I Level 2 

flODNXR transforms this tree into the following form: 

+ 



D 



DFLT DBLE 





J R 
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4.0 P HASE ft 

4.1 CRN KRAL DESCRIPTION 

4.1.1 Phase 8 Function Within Compiler 

Phase l-J is the instruction generation pass of the 1700 Tape 
FORTRAN compiler, or, what is termed the pre-assembly phase . 
Its responsibility is translating FORTRAN statements into 
instructions. Other peripheral tasks relevant to the pre- 
assembly and assembly phase (PhaseC) are carried out by 
Phase B- 

4.1.2 Input Description 

Input to Phased is of two types: 

1. Pertinent information residing in that portion of the 
compiler's common blocks which remains intact from 
one pass to the next pass. (LABELLED COMMON) The 
information contained therein is discussed in detail 
in 4.5. 



c 



c 



2. An input file on disk corres- 

ponding to the output file of Phase A- It consists 
of a consecutive string of logical records the last of 
which represents the END line. The logical records in 
the Phase 8 input file correspond one to one, and in 
the same physical order as the 1700 Tape FORTRAN source 
statements, with the following set of exceptions. 

a. Only executable statements reach the Phase B input 
file with the following additions and exceptions: 
Statements which are not classified as executable 
but which are passed: 

(1) SUBROUTINE 

(2) FUNCTION 

(3) DATA 

(4) FORMAT 

(5) END 

(6) Statement Function 

Statements which are classified as executable but 
which are not passed comprise the set of Input/ 
Output and Auxiliary Input/Output statements: 

(1) READ (formatted) 

(2) WRITE (formatted) 

(3) READ (unformatted) 

(4) WRITE (unformatted), and ... 

(5) REWIND 



CONTROL DATA CORPORATION 



DEVELOPMENT DIV 



DOCUMENT CLASS 
PRODUCT NAMl 
PRODUCT NO.__ 



MIL 



1700 MASS STORAGE FORTRAN 

j > * a ■ t^ ^BJ^ h *"* fc " afc ' ■ J»—» ...» . . —■■ M . „, ■ ■—■■■■ i 

COOS WCDCirtK. £•□ 



SOFTWARE DOCUMENT 

PAGE NO l~il 



VERSION. 



MACHINE SERIES 



1700 



(6) 
(7) 



BACKSPACE 
ENDFILE 



Certain conditions in compilation cause the 
creation of additional executable statements in 
conjunction with those which appeared in the 
original source input. 

1. Input/Output and Auxiliary Input/Output 
statements as noted in paragraph a, are replaced 
in the same relative position within the source 
input, with an expanded set of statements con- 
sisting of one or more statements of type 

CALL, BEGIN DO, END DO. (See discussion of 
END DO below.) 

2. When two conditions are satisfied, a STOP 
statement is created and inserted immediately 
prior to the END line. First, the program 
being compiled is a main program , and second, 
the last executable statement of the program 
is neither a STOP, STOP n, or any other uncon- 
ditional transfer statement. (Unconditional 
transfer statements which comprise the latter 
(truth) portion of a logical IF do not qualify.) 

3. For each DO statement in the source input the 
Phase B input file contains a BEGIN DO state- 
ment record. But additionally, a special 
statement, END DO, internal to the compiler, 
is generated uniquely for each BEGIN DO and 
located logically in the input file so as to 
aid Phase & in DO-loop instruction generation. 

The Logical IF statement appears in the Phase Q 
input file as two separate statements. 

The figure below illustrates the format of a record 
of the Phase & input file. 



Word 1 

2 

3 

A 

(5) 

(5 or 6) 



SN . i 



ST 

not usedl 

.. .... | 

SL i 



% p-words 
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Where: 

n - the number of words in the record (n _■_. 4) 
SN — ' s.n. or -s.n., where s.n. is the statement 

number 
ST --- the statement type 
SL -• the symbol table pointer of the statement 

label p _T. 

The statement label is optional and its existence 
is indicated by SN being negative. When SN is 
negative, the remaining p words of the record 
begin at word 6 and e^d at word n. When SN is 
positive, the remaining p words of the record 
begin at word 5 and end at word n. 

The interpretation of the last p words of any 
record by the Phase Q processors is primarily 
determined by ST, the statement type. Each state- 
ment type designates what information, if any, 
follows in the remaining p words. 

Table 4-1 lists all statements processed in the 
1700 Tape FORTRAN compiler. Each statement is 
cross-referenced with its statement type code and 
its disposition by Phase £?. Refer to the following 
key for further explanation: 

(n.u.) - this ST code is not used in 1700 Tape 
FORTRAN 

(n.r.) - this statement type is not received by 
Phase Q in its input file. 

" processed by XXXXXX " - Phase B driver calls upon 
subprogram (named XXXXXX) which is designed to per- 
form the appropriate processing (usually generation 
of instructions) for that particular type of state- 
ment. 

" processed by Phase S driver " - indicates that the • 
appropriate processing for that particular type of 
statement is performed within the Phase driver 
and no subprogram is called which is specifically 
designed to process that statement type. 
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TABLE 4 - 1 



Statement Types and Phase Disposition 



Type Code 



0' 

1 

2 

3 

A 

5 

6 

7 

8 

9. 
10 
11 
12 
13 
14 
15 
lb 
17 
lfl 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 

29 



Statement Name 

DIMENSION 

COMMON 

INTEGER 

REAL 

(n.u. ) 

(n.u. ) 

(n.u. ) 

SINGLE 

BYTE, SIGNED BYTE 

(n.u. ) 

EXTERNAL 

RELATIVE 

EQUIVALENCE 

BLOCK DATA 

SUBROUTINE 

FUNCTION 

DATA 

FORMAT 

Replacement Statement 

Statement Function 

ASSIGN 

CALL 

RETURN 

(n.u. ) 

GO TO (unconditional) 

GO TO (computed) 

GO TO (assigned) 

CONTINUE 

STOP 

STOP n 



Disposition by Phase B 

(n.r. ) 
(n.r. ) 
(n.r. ) 
(n.r. ) 



(n.r. ) 
(n.r.) 

(n.r.) 

(n.r.) 

(n.r.) 

(n.r.) 

processed by SUBFUN 

processed by SUBFUN 

processed by NOPROC 

processed by NOPROC 

processed by ARITHR 

processed by Pfr#>k~/f 0/?/V£* 

processed by Phase & driver 

processed by Phase 8 driver 

processed by Phase 6 driver 

processed by Phase B driver 
processed by CG0T0 
processed by Phase 8 driver 
processed by Phase 6 driver 
processed by Phase 8 driver 

processed by Phase & driver 
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Type Code 


Statement Name 


Disposition by Phase 


B 


30 


PAUSE 


processed 


by Phase f) 


driver 


31 


PAUSE n 


processed 


by Phase 6 


driver 


32 


END 


processed 


by END 




33 


ENDFILE 


(n.r.) 






34 


REWIND 


(n.r.) 






35 


BACKSPACE 


(n.r.) 






3b 


READ (unformatted) 


(n.r.) 






37 


READ (formatted) 


(n.r.) 






38 


WRITE (unformatted) 


(n.r. ) 






39 


WRITE (formatted) 


(n.r.) 






40 


BEGIN DO 


processed 


by BGINDO 




41 


END DO 


processed 


by BANANA 




42 


Arithmetic IF 


processed 


by rttfi^B 


ir/f/L-SA 9 


43 


Logical IF 


processed 


by PH#J£3 


0/t/i,'ff 


44 


ASSEM 


processed 


by ASSEM 
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Phase $ specifications will not give a general 
summary of the detailed formats of the input 
records for each statement type. Refer to"7.^~ 
for a detailed description. References will 
be made to such formats as may be appropriate 
in clarifying explanations. 



4.1. J Output Description 

Output from Phase 8 is of two types 



1. Pertinent information (either retained from previous 
passes or set by Phase B) residing in that portion of 
the compiler's common blocks which remains intact 
from Phase 8 to Phase C. (The information contained 
therein is discussed in detail in 4.5.) Use and 
definition of the information is discussed throughout 
Phase B description. 

2. An output file on disk corresponding 
to what will become the Phase C input file . It consists 
of a consecutive string of logical records, the last 

of which is indicative of the end of the file. 

The figure below illustrates the general format of a 
record of the Phase & output file: 



Word 1 

2 

3 

4 

(5) 

5 or 6 



n 
SN 
ST 

SL 



A 



J. 



p-words 
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Three cases of the general format occur: 

Case 1: 

Where: 

n — the number of words in the record (6jj* n — 9) 
SN = (not used) 
ST = 49 

SL = (does not exist) 
the next p words begin with word 5 
2± p £ 5 

Case 1 is the instruction record. The p words 
describe a single instruction generated by Phaser- 
Case 2: 
Where: 

All definitions are the same for the Phase B input 
records (see 4.1.2 P 2c). Case 2 occurs for the 
case in which the processing of an input record 
by Phase # primarily is the transfer of that 
record to the output file exactly as it was read 
without modification. Records which fall into 
this category are DATA and FORMAT (ST ■--■ 16 or 
ST ■•= 17) 

Case 3: 

Where: 

n =■- 1 

Case 3 is a flag to Phase C to indicate that the next 
record is a case 2 type record. 



4.1.3.1 Instructions 



o 



The 2 to .5 words in the case 1 record format describe a single 
instruction generated by Phasefl. This format is as follows: 
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Word 



1 




2 


I 


(3) 





(4) 
(5) 


_ A__ 
S 



Indicator Word 



Word 1 is always the INDICATOR word. It consists of a series 
of flags and indicators which describe the pseudo instruction 
and imply the existence and meaning of the words following 
the INDICATOR. The format of this word follows: 



15 14 13 12 11 10 



J L 



5 4 

l 



3 2 

T"~~ 



1 



1. T is a special flag to indicate whether or not this 
pseudo instruction is a label item. 

T — 0, this any type of instruction except a label. 

T — 1. t l» i r; ItiQ) met l(M1 |q n lflhf>l. 

A c I iij-; I »• I a l»r. I I I cm I u Itc I a I lie- I n a I • n < I 1 < m I uniicil ! a I cl •/ 
I o 1 1 4iw 1 11^ . A ginii|i (if I.Ww »>> uU»te label ileitis which 

on ui < oiiijt'.c .in i vr J y die considered to be equivalent 
and label the instruction immediately following the 
group of labels. 

2. A specifies whether or not this instruction has an 
additive. An additive is an adjustment of the operand 
address. For example: 

I = J(7) 

would result in pseudo code: 

LDA J +b 

STA I, where the value +6 is the additive. 



Phase 8 must pass this additive on to the next phase which 
after assigning an address to J must then increase the 
reference to it by 6. 
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A = 0, no additive 
A = 1, additive. 
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3. S specifies whether or not the operand address 
is subscripted. 

S = not subscripted 

S = 1 subscripted 

4. D tells whether instruction is to be made 
indirect or not. 

D = not indirect 

D = indirect 

5« R Decision whether instruction is to be made 
1 or 2 words. 

R = decision is left to next phase which 
will make any such command 1 word 
whenever possible, dependent upon the 
size of constant operands and distances 
of relative addresses, etc. 

R = 1 force instruction two words, regardless 
of operand size. This is usually done 
where operand has to be plugged. 

6. Q&F These two bits are set aside for the next 

phase as working space in its index 
register assignment, one for index Q and 
one for FF. In special instances, Phase 4 
may set Q and generate its own instructions 
to load Q. 

7. operand type 

A. For instruction code / 2 

0=0 normal case, operand is a symbol 
table pointer. Addressing mode is 
assigned by assembly pass (Phase 5) 

$6 = 1 Operand is an absolute value. For 
the instruction code being a storage 
reference instruction, the operand is 
less than 256 
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= 2 Operand is an absolute value. For 
the instruction code being a storage 
reference instruction, Phase 5 assigns 
two-word constant address mode. 

= 3 Not used 

= 4 Operand is relocatable address constant 
(biased) 

= 5 Operand is absolute address constant 
(unbiased) 

B, For instruction code = 2 

0=0 not used 

0=1 This address constant is in a table of 
addresses used in a Computed GO TO 
statement. The address is self relative 
and is calculated using 16-bit arithmetic. 

0=2 This address constant is a parameter 
in a calling sequence to the floating 
point subroutine. 

= 3, 4, 5 refers to parameters in a calling 
sequence to a subroutine other than the 
floating point subroutine. 

0=3 Address self relative computed in 

15-bit arithmetic with 15 bit set to 1. 

0=4 Relocatable, address. Address is 
location of referenced operand. 

0=5 Same as type 4 except address is 
unbiased. 

Word 2 is always the instruction code except when the 
instruction is a label (bit T=l). Instruction codes 
are shown in table below: 
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OCTAL 
CODE 


DECIMAL 
CODE 


INSTRUCTION 


OCTAL 
CODE 


DECIMAL 
CODE 


INSTRUCTION 


1 


1 


BSS 


41 


33 


INQ 


2 


2 


ADC 


42 


34 


LRS 


3 


3 


CON 


43 


35 


LLS 


4 


4 


END 


44 


36 


QRS 


5 


5 


PST 


45 


37 


QLS 


6 


6 


STN 


46 


38 


ARS 


7 


7 




47 


39 


ALS 


10 


8 




50 


40 


AJLGZ 


11 


9 




51 


41 


AJEZ 


12 


10 


JMP 


52 


42 


AJLZ 


13 


11 


RTJ 


53 


43 


AJGEZ 


14 


12 


LDA 


54 


44 


AJLEZ 


15 


13 


AND 


55 


45 


AJGZ 


16 


14 


STA 


56 


46 




17 


15 


STQ 


57 


47 


QJEZ 


20 


16 


RAO 


60 


48 




21 


17 


ADD 


61 


49 


QJGEZ 


22 


18 


SUB 


62 


50 

V 




23 


19 


LDQ 


63 


51 




24 


20 


DVI 


64 


52 


FCM 


25 


21 


ADQ 


65 


53 


FSB 


26 


22 


MUI 


66 


54 


FMU 
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1700 



OCTAL 
CODE 

27 
30 
31 
32 
33 
34 
35 
3b 
37 
30 



DECIMAL 
CODE 

23 
24 
25 

2b 

27 
26 
2°i 
30 
31 
32 



INSTRUCTION 



EOR 



KLD<2 

KST(2 

ENA 

INA 

EN<2 



OCTAL 
CODE 

b7 
70 
71 
72 
73 
74 
75 
7b 
77 
100 



DECIMAL 
CODE 

55 
5b 
57 
Sfi 

ST 
bO 
bl 
b2 
b3 
b4 



INSTRUCTION 

FDV 
FLD 

FST 

FAD 

CA(2A 

TC(2A 

TRA<2 

TCAA 

icaa 



110 
111 
112 
113 
114 
115 
lib 
117 



72 
73 
74 
75 
7b 
77 
7fl 
7T 



DCM 
DSB 
DNN 
DDV 
DLD 

DST 
DAD 
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Each instruction corresponds uniquely to one actual 
1700 instruction with the noted exceptions: 

1. ENDi PSTn STN are discussed where appropriate in 
other sections. 

2. FCMn FSB-, FflUn FDVn FLD-, FST-, FAD and DCM-i DSB-, DMU-, 
DDVi DLD-i DSTn DAD are single precision and double 
precision floating point instuctions used only within 
Phase B. Phase C doesn't encounter floating commands 
as such-i but rather the floating calling sequences: 

RTJ FLOT 
CON ... 
ADC 
ADC 

etc . 

or 

RTJ DFLOT 
CON ... 
ADC 
ADC 

• 

etc 

3. "Place holding" — pseudo instructions BSSn ADC and 
CON. 

M. Conditional Jumps 

Phase B has occasion to generate code to testthe 
accumulator or (2-register for b possible conditions: 

Ace or (3 < D -Cless than zero} 

" = D -Cequal to zero} 

" > D {greater than zero} 

n < D -Cless than or equal to zero} 

n > {greater than or equal to zero} 

" ^ D -Cless than or greater than zero} 

The 17D0 Instructions Test — The condition in such 
a manner that if the condition is truei control is 
transferred to the operand address and if the con- 
dition is false-i the program continues in its normal 
sequence . 

The conditional jump instructions {for the A-register} 
in the 17DD operate in the following manner'- 

A- SAZi condition is satisfied if all lb bits of 
A are Q . 

B. SANn condition is satisfied if any or all of 
the lb bits of A are * D- 

CA 130-1 REV 10*67 
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C. SAP, condition is satisfied if bit 15 

(sign bit) of A is 0. 

D. SAM, condition is satisfied if bit 15 

of A is / 0. 

Problems in testing arise from the manner in which 
these instructions operate: 

1. -0, will not be detected by SAZ. 

2. -0, will falsely satisfy SAN. 

3. SAP, does not exactly test for greater than 
but for A = +0 or A ') 0, 

4. SAM, does not exactly test for less than 
but for A = -0 or A < 0, 

(The same holds true for the analogous Q-register 
tests, SQZ, SQN, ...etc.) 

To aid in effective code generation, eight special 
conditional jumps have been created. Each cor- 
responds to a specific test needed by Phase 8 to f"~^ 
test the accumulator. Each results in the genera- 
tion of some group of real instructions. The 
resulting group of real instructions is left to 
Phase C due to information which is unavailable 
during Phase operations. (Specifically, the 
distance of the operand address from the test 
instructions affects the type of code generation. ) 

The table below cross-references the special codes 
with the code that will be generated by Phase C 
depending upon the noted conditions : 
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if: 



PH/f<s£ & 

pseudo 

code 



AJD,LZ 



Phase C will generate 
the following code: 






Meaning 



If operand address ADD 
is not more than 15 
cells distant in a 
forward direction 
from its references: 



ADD A < +0 



SAM 



ADD-*-l 



AJP,EZ ADD 



AJP,GZ ADD 



A = +0 ! SAZ ADD-tt-1 



A > +0 



AJP,LEZ ADDiA^+0 



AJP,GEZ ADD 



A > +0 



r 



AJP,LGZ ADDJ A '/ ±0 



SAZ 1 

SAP ADD-*-l 



SAM ADD-*-l 
SAZ ADD-*-l 



SAP ADD-*-l 



SAN ADD-*-l 



If address Add is 
more than 15 cells 
distant in a forward 
direction, or is in 
a backward direction 

SAP (1 or 2) 
JMP* ADD 

SAN (1 or 2) 
JMP* ADD 

SAZ (2 or 3) 
SAM (1 or 2) 

JMP ADD 

SAZ 1 

SAP (1 or 2) 

JMP* ADD 

SAM (1 or 2) 
JMP* ADD 



SAZ (1 or 2) 
JMP* ADD 



(NOTE: Operands in parenthesis are two alternatives depending 
upon whether JMP* ADD is a one or two-word command, 
respectively.) 

There is limited use of Q-register testing. Only 
the two instructions QJP,EZ and QJP,GEZ (analogous 
to AJP, EZ and AJP,GEZ) are needed, thus the 
total number of conditional jumps is eight. 

Word 3: 

1. Whenever the instruction code is an instruction 
which has an operand, the operand is in word 3. 
The meaning of the operand, whether its a constant 
or a symbol table pointer is dependent upon field 
f6 in the indicator word. 
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2. Whenever the instruction code is an instruction 
which has no operand, word 3 will contain no sig- 
nificant information. 

Word 4: 

Whenever field A in the indicator word is set /0 
word 4 will contain the additive value to the 
operand contained in Word 3. 

Word 5: 

Whenever field S in the indicator is set '/0 word 5 
will contain the symtab pointer to the variable 
which subscripts the operand. 

4.2 OPERATION OF THE PHASE 8 DRIVER (PHASE 8) 

PHASE 8 is the driver which controls the overall 
r , operation of Phase 6. Its functions are: 

U 

1. Initialize all flags and switches necessary 

to begin the phase. 

2. Generate special program-wide labels. 

3. Generate all internal arrays, constants and 
variables by calling HELEN. 

4. Where program is run-anywhere, generate special 
instructions which compute relocation address 
at ob j^ct-timo . 

5.' Call RKADIR to read input records. Make decis- 
ion on which processor to call based upon the 
statement type. Call that processor. Statement 
functions, arithmetic IF statements, and logical IF 
statements are processed in PHASEB as described 
in 4.2.2-4. 

6. In case of logical IF reset input buffer pointers 
and output special labels as is appropriate. 

7. Monitor the processing of statement functions and 
reinitialize flags and generate certain labels as 
appropriate. 

4.2, i Program Structure 

Program structure is a function of the program type 
and the run-anywhere switch. The illustration below 
.will clarify how these conditions interrelate to produce 
the program structure. The ordering of the various 
elements of the program is equivalent to the ordering 

in the table* 
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0) 
u 
0) 

(4 O 



O 

& 

I 

c 

H 








5 
3 



M 
O* 
O 
J-l 

cu 
o .0 

.D 0) 



G U 
O O* 
•H O 

o a 

G & 



code generated 



on 



LABEL TOP 



(label of top of 
program. Relo 
address 0000) 



x 



LABEL Q8QNAM 
JMP* MBEGIN 



(generated name of 

main program) 
(jump from first 

cell of program to 

first executable 

instruction) 



x 



generation of all programmer- 
defined arrays, variables, 
and constants in this FORTRAN 
program. (structure of this 
code is elucidated in section 
on program HELEN) 



code generation for 1st 
statement function, 

code generation for 2nd 
statement function, 



x 



code generation for n-th 
statement function 

(structure of this code is elucidated 
in section dealing with statement 

function processing^ PhA3£& ) 
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run-anywhere 
switch 


c 

03 

cn 



a •• 
i 

c 

•H 

E 


block data 
subprogram 


0) 

c 

•H 

•p 

3 

u 


function 
subprogram 


■ 

code generated 




X 




X 


X 


LABEL MBEGIN (label of first 

executable instruc- 
tion in program) 


on 

c 










RTJ* BIAS 
ADC TpfP 
BIAS BSS 1 

LDA BIAS 
ADD BIAS -1 
STA BIAS 

(this code computes a value representing 
the value of the relocation address of 
the program and places that value in 
BIAS, Run-anywhere considerations require 
that the bias must be computed at run 
time, ) 




X 




X 


X 


main body of program includes code 
generation of all executable statments, 
and generation of jumps around format 
statements. 








X 


X 


LABEL RETURN (label referenced 

by jumps which 
are the result of 
RETURN statements) 




1 




X 


X 

- 


code to restore indexes 

(structure of this code is elucidated 
in section on program INXRST) 
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run-anywhere 
switch 


3 

u 



u 
a 
i 

c 

•H 

i 


block data 
subprogram 


01 

c 

•H 


u 

(0 


function 
subprogram 


code generated 










X 


LDA or FLD of value of function into 
accumulator or floating point accumu- 
lator respectively. 








X 


X 


JMP* (KPRNAM) (indirect 

jump to 
KABEL KPRNAM entry point ) 








X 


X 


entry code. code which is responsible 

for picking up parameters and plugging 

them into the program with the proper ^ 

increments. The code also includes \_, 

the entry point BSS 1 and the jump 

to the first executable statement 

(structure of this code is elucidated 

in section on program ENTCOD) 


• 


X 


X 


X 


X 


NEND (terminating 

pseudo instruction) 
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4.2.2 STATEMENT FUNCTI'ON PROCESSOR 

PHASEB processes the statement function in the 
following steps: 

1. Generates and outputs a label to tag the first 
executable instruction of the statement function. 

2, Places the symtab pointer of the statement 
function name into holder, 

3o Initializes table KSFAT with the statement function 
arguments. Upon completion of this operation 
the table appears in its initialized state as 
shown 



L 



KSFAT (12,2) 



KSFAT (1,1) 
KSFAT (2,1) 



KSFAT (n,l) 



KSFAT (12,1) 



ptr 1 





ptr 2 





« 

• 




ptr n 










« 

o 

o 
m 
» 
a 









KSFAT (1,2) 



o 



4. 



where ptr 1-n are the symtab pointers of the 
statement function arguments. The at 
KSFAT (M+1,1) signifies the logical end of the 
parameter list. The second word is used later 
to contain pointers to assigned temporary storage 
(See KPCSTK) 

Update NDPRS (number of argument-increment pairs) 
by the number of arguments© 
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Determine if the mode of the right side of the 
statement function expression is different from 
the mode of the function and generate instructions 
to call the appropriate conversion routines 
{integer to realn real to integem integer to 
double precisionn etc.} where necessary. 

Generate instructions to restore indexesn the exit 
command {indirect jump through the entry pointln 
the entry pointi and sets up and calls ENTCOD to 
generate instructions for parameter pickup. 

Decrement KSFCNT -C# of statement functions} by 1- 



O 



O 
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f[.'?..2 ARITHMETIC IF STATEMENT PROCESSOR 

Processes the Arithmetic IF statement. For purposes 
of discussion, the Arithmetic If can be described 
as follows: 

IF (E) Kl, K2, K3 
L (statement) 

where, E is the arithmetic expression 

Kl is the address for E 

K2 is the address for E = 

K3 is the address for E 
and L is the label of the next statement following 

the Arithmetic IF. 

Processing takes place in two basic steps: 

1. The expression (E) is given to subroutine 
ASUPER for processing. PHASEB does not 
directly call ASUPER however, but goes 
through routine AFIDL which in turn calls 
ASUPER and is responsible for insuring that 
after the expression has been evaluated that 

~0 is eliminated thus simplifying the conditional 
testing. 

2. One or more conditional and/or unconditional 
jumps are generated such that testing Is per- 
formed in the most efficient manner. Two 
indexes are used IDTI and IDTJ whose values 
are dependent upon various considerations about 
the values of Kl, K2, etc. The values of these 
indexes then determine the most efficient code 

to be generated. The settings and their meanings 
are shown : 



IDTI = 1 
IDTI - 2 

IDTI =* 3 
IDTI - 4 

r idtj - i 

^ IDTJ - 2 

IDTJ - 3 
IDTJ - 4 
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K1=K2 
K1=K3 
K2=K3 
K1#C2/K3^K1 

K1=L 

K2=L (KlfL) 

K3=K (Kl=/L, K2^L) 

K1-/L, K2/L, K3/L 
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After values for IDTI and IDTJ have been computed, 
then instructions are generated according to the 
following table: 



IDTI= 



IDTJ= 
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4.2.4 LOGICAL IF STATEMENT PROCESSOR 

PHASEB is the processor of the Logical IF statement. 
For reference, the Logical IF is defined: 



where : 



IF (e) S 



is a logical expression 

is any executable statement except a D0 

statement or another Logical If. 



The logical expression becomes a "tree structure" in 
Phased and is processed as such in Phase B. "Level" 
tables are employed in the processing of the tree 
similar to those used in the processing of arithmetic 
expressions. For illustration the following 
logical expression will be used: 

((I.LT.J.OR.K.LT.J).AND.(L.NE.5).AND.(M.EQ.6)) 

The tree structure becomes: 



°E 



i [ 



AND 



N 



E 



M 



Relational expressions (J.LT.J,, L.NE.5. . .etc. ) are 
treated simply as arithmetic expressions where the 
operator is + and one of the two variables is made 
an inverse. The table below indicates which variable 

is made the inverse: 
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relational expression 



is interpreted 



I.LT.J 


I- J 


I.GT.J 


J- 1 


I.LE.J 


J- 1 


I.GE.J 


I-J 


I.EQ.J 


I-J 


I.N'E.J 


I-J 



The order is immaterial in the EQ and NE cases. But 
in the other 4 cases the order of subtraction is 
determined such that the fewest number of test 
instructions are required to determine whether or 
not the condition has been satisfied. 

Every logical and relational operator is treated 
as a binary value; that is either true or false . 
According to the true or false condition of the 
operator there is a corresponding branch to either 
of two possible points. 

All logical and relational operations are assigned 
"truth" and "false" addresses which are based upon: 

1. The type of logical operator of which they are 
a branch. 

2. Whether or not the branch is the last branch 
of the logical operator. 



The following table shows how assignments are made: 
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The type of 
logical oper- 
ator of which 
this operator 
is a branch 



AND 



0R 



This operator is not the 
last branch 



truth 
address 

the next 
branch of 
the AND 



the same 
: as the 
'' truth 

address of 
, the OR 
: operator 



false 
address 

the same 
as the 
false 

address of 
the AND 
operator 

the next 
branch of 
the OR 



This operator is the 
last branch 



truth 
address 

the same 
as the 
truth 

address of 
the AND 
operator 

the same 
as the 
truth 

address of 
the OR 
operator 



false 
address 

the same as 
the false 
address of 
the AND 
operator 



the same as 
the false 
address of 
the OR operator 



Processing proceeds as follows. 

1. The 2nd statement of the Logical IF (S) is also 
read into the input buffer and it is determined 
whether or not that statement is an unconditional 
G0 T0 or RETURN statement. 

2. If the 2nd statement was a G0 T0 or RETURN the 
truth address of the highest level operator is 
set to that address. (LOGIF is set to 2) 

3. If the 2nd statement was not a GO TO or RETURN, 
t ^ ie truth address is a generated label. 
(LOGIF is set to 1) 

4. The false address is a generated label. 

5. In the actual level tables the highest (1st) 
level operator is actually an artificial one 
based upon the following criterion: 



a . 



b. 



If the 2nd statement was a GO TO or RETURN, 

the operator is set to 0R. 

If not, the operator is set to AND. 
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The actual logical expression then becomes 
the first branch of an artifically created 
AND or 0R operator: 



C 



A 







R 



l|t lit 

n f 

I J I J 



aW 



N E 



L 5 



AND 



O'R 



G0 T0 
or RETURN 



i. 



M 



i 

ANY OTHER 
STATEMENT 
IN 2nd 
PART OF 
LOGICAL 
IF. 



6. The processing then proceeds to cycle through 
all the branches of the logical operator 
(from left to right) when a branch is itself 
a logical operator, the level tables are updated 
to the next level down and the processing pro- 
ceeds at that level with the first branch. 
When a branch is encountered which is a relational 
operator (and therefore an arithmetic expression) 
the code is generated via subroutine ASUPER to 
compute the value of the expression. 

Next, a conditional jump command is generated. 
Each relational expression has associated with 
it a "truth" condition and a "false" condition 
and likewise a corresponding conditional jump 
command : 
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relational 


arithmetic 


conditional jump 


true 


false 


I.LT.J 


I-J 


AJP,LZ 


AJP,GEZ 


I.GT.J 


J-I 


AJP,LZ 


AJP,GEZ 


I.LE.J 


J- 1 


AJP,GEZ 


AJP,LZ 


I.GE.J 


I-J 


AJP,GEZ 


AJP,LZ 


I.EQ.J 


I-J 


AJP,EZ I AJP,LGZ 


I.NE.J 


I-J 

1 


AJP,LGZ AJP,EZ 



Only one of the two conditional jumps is actually 
generated. It is always true that either the 
truth address or the false address is the next 
expression to be computed (graphically, left to 
right across the tree, the "next" expression is 
the one to the immediate right ; henceforth called 
the "fall- through address.") Therefore, if the 
truth case is actually the " fall- through, " 
the conditional jump is the jump to the "false" 
address. If the false case is actually the "fall- 
through" the conditional jump is the jump to the 
"truth" address. 

Returning to the example code is generated in the follow- 
ing order: 

1. Test if I is less than J. 

compute I-J 

2. If true, go to the next branch of the AND 

AJP,LZ LABEL 1 

3. If false, fall through, 
test if K is less than J 

compute K-J 

4. If false, go to the address of the statement 
after the Logical If. 

AJP,GEZ LABEL 2 

5. If true, fall through. Output label LABEL 1 
test if L is not equal to 5 

compute L-5 

6. If false, go to the address of the statement 
after the Logical IF 

AJP,EZ LABEL 2 
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7. 



8. 



9. 



C 



If true, fall through. 
Test if M is equal to 6. 

compute M-6 
( If 2nd .half of Logical If is neither a G0 T0 



or 



RETURN) 



If false, go to the address of the statement 
after the Logical IF. 

AJP,EZ LABEL 2 
If true, fall through to the statement which 
is the 2nd half of the Logical IF 
(If 2nd half of Logical If is a G0 T0 or RETURN) 
If true, go to the address specified in the 
G0 T0 or implicit in the RETURN. 

AJP,NEZ X 
If false, fall through to the statement after 
the Logical If. (The G0 T0 or RETURN is then 
ignored . ) 



Level Tables 



Index 
LIFTX- 



NDTYP NBRNS ICBRN KOP KTRUT KFALS KFATH 



■ ' ' ' '■■' 






























































































..... 





level 1 
level 2 
level 3 



level n 



where : 



O 



NDTYP = type of operator (AND,0R) (node type). 

NBRNS = number of branches 

ICBRN = current branch 

K0P = (working pointer) 

KTRUT = holder of "truth" address symtab ptr. 

KFALS = holder of "false" address symtab ptr. 

KFATH = holder of "fall -through" address 
symtab ptr. 



CONTROL DATA CORPORATION e DEVELOPMENT D8V o SOFTWARE 

DOCUMENT CLASS IMS PAGE NO l) -3? 

PRODUCT naaaf 1700 MASS STORAGE FORTRAN "~ 

PRODUCT mo CDD5 VFR<_ir>M g.Q machinf <_fpif<; 1700 



PHASE© checks the LOGIF switch whose settings are: 

LOGIF =0, no Logical IF statement 

has occurred 
= 1, 2nd statement of Logical IF 

was not a G0 T0 or RETURN 
= 2, 2nd statement of Logical IF was 

a G0 T0 or RETURN 

IF L0GIF = 1 PHASEB sets up its buffer and buffer 
index for processing of the 2nd half statement of 
the 

Logical IF and outputs the level 1 "fall -through " 
label If LOGIF - 2 PHASE B ignores the 2nd half 
statement and outputs the lead 1 "false" label . 
It then returns to proceed with normal processing 
and read in the next statement. LOGIF is set to 0. 

After the completion of any other statement processing, 
LOGIF is tested for =1. If so PHASE outputs the 
level 1 "false" label, then sets L0GIF =0. 
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4.3 PHASES STATEMENT PROCESSORS 

4.3.1 SUBFUN 

This routine processes both the SUBROUTINE and 
FUNCTION statements. Its primary task is to transfer 
the arguments of the subroutine or function subprogram 
(in the form of symbol table pointers) to KSUBAT, the 
Subroutine Argument Table. (A detailed outline of 
the statement formats will be found in 4.4.20) Completion 
of this process leaves KSUBAT in its initialized form 
as shown: 
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The generalized form of this table is found under 
the discussion of subroutine interface. 

In addition to transfer of arguments SUBFUN also per. 
forms the following additional operations: 
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1. transfers the subroutine or function name 
into the standard holder KPRNAM. 

2. In the case of a function subprogram, creates 
a new holder to contain the results of the 
function. 
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4.3.2 NOPROC 

NOPROC ' s basic function is to transfer from the input buffer to the 
output file of PHASE B records of those statements which require no 
direct processing. 

Operating is as follows: 

1. If statement is a format and if the last instruction generated 
by PHASE B was not an unconditional jump: generate a label 
and output a jump to that label. 

2. Output special flag record which indicates that the record 
following is a DATA or FORMAT (see output description).. 

3. Output the DATA or FORMAT record exactly as it was input. 

4. If a jump around a FORMAT was generated, then output the label 
that was generated to jump to. 

Flowcharts: 
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ARITHR 

ARITHR is the routine to process the arithmetic replace- 
ment statement. It first checks for the special case 
I-£J>=I-CJ>+1 or 2n meaning that a non-partial variable 
is increased by either one or two. This allows for the 
use of one or two RAO commands in place of the normal 
sequence of commands. Otherwise the processing proceeds 
as follows: The subscript of the variable on the left 
of the equal sign is processed through the subscript 
expression processor SUBPR1. The variable or expression 
on the right side of the equal sign ■£=> is processed 
through the arithmetic expression processor ASUPER • 
Finallyn the STAn FSTn or DST is generated into the left 
side variable precededn if necessaryn by a necessary 
call to a conversion routine -treal to integem integer 
to realn integer to double precisionn etc.} whenever 
there is a difference between the mode of the right 
side expression and the left side variable. When the 
left side variable is a partialn code is generated to 
store the value into that partial- 
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4.3.5 CG0T0 

CG0T0 processes the computed GO TO statement in the 
following manner: 

1. Creates a label to label the table of addresses 
in the instruction generation. 

2. Tests if the GO TO expression is only a variable. 
If soi a LDQ command is generated. If not, the 
instructions are generated to compute the value 
of the expression followed by a IRAQ command 

to place the value in Q. 

3. Instructions are generated to index into and 
jump through the proper table entry. 

4 The label for the address table is generated 

followed by the table of addresses corresponding 
to the label list in the computed GO TO. 
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END 

END processes the END statement in the following manner: 

1. For block data and main programsn the "end" pseudo- 
instruction is generated signifying the end of the 
Phase B output and Phase C input. 

2. For Subroutines and function subprogramsn the label 
of reference for all return statements is output 
followed by instruction generation of instructions 
to restore index registers. 

3. For function subprograms! another instruction is 
then generated to load the value of the function 
■Ceither LDAn FLDt or DLD>. , 

M- For subroutines and function subprograms! then a 
jump command through the entry point is generated 
followed by output of the entry point label. Then 
the parameters are set up and ENTCOD is executed to 
generate the parameter pickup instruction sequence. 
Then the "end" is generated as in step 1 - 

S. Finally the SYMTAB points to the program name is 
transferred to holder for use by Phase C- 
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4p3.7 BGIND0 and BANANA 

D/ZJ statements are reorganized by Phase 1 into two 
separate statements Begin Do and End Do processed 
in Phase 4 by BGINDO and BANANA respectively. 
Detailed descriptions of the philosophy and pro- 
cessing of the DO statement can be found in Phase 1. 

The Begin Do occurs physically in the same position 
in the Phase 4 input file as the DO statement does 
in the FORTRAN source input. The END D0 corres- 
ponding to a BEGIN D0 follows the terminal statement 
of the associated D0 and precedes the next statement. 
When more than one DO statement has the same terminal 
statement the End Do's will occur consecutively in 
the output file, the first one corresponding to the 
innermost Begin Do, etc. 

Both BGINDO and BANANA generate executable instructions 
which work together to perform the loop. In generating 
executable instructions both core space and execution 
time was taken into consideration. Several factors 
enter into the analysis: 

1. Class of the initial parameter (i.e. constant 
or variable). 

2. Class of terminal parameter. 

3. Class of the incrementation parameter. 

4. Whether the loop is an incrementing or decre- 
menting loop. 

5. In certain cases, whether or not the initial 
parameter is a constant of 1. 

6. In certain cases, whether or not the terminal 
parameter is a constant of 1. 

7. In certain cases, whether or not the incre- 
mentation parameter is a constant of 1. 

In the vast majority of cases the number of times 
a loop is executed is a function of the loop parameters 
(initial, terminal, and incrementation values). If 
n represents this number then the number of times the 
terminal value must be compared with the control 
variable is: 



CONTROL DATA CORPORATION 



DEVELOPMENT DIV 



DOCUMENT CLASS 
PRODUCT NAME — 
PRODUCT NO.. 



TMS . 



1700 Mass Storage FORTRAN 



SOFTWARE DOCUMENT 

PAGE NO !ir 7D 



CC1Q5 



vlKSION. 



■2LJL 



.MACHINE SERIES 



1700 



n, if the comparison takes place at the end 

of the range, 
n+1, if the comparison takes place at the 

beginning of the range. 

Thus, whenever it is possible, the instructions 
which perform this comparison are placed at the end 
of the loop. The following cases are those where the 
comparison is made after the first execution of the 
DO range: 

1. The beginning and terminal values of the loop 
are constants. 

2. Decrementing loops where the terminal value 
is the constant 1. 

3. Incrementing loops where the initial value is 
the constant 1. 

Clearly, these are cases which, by their nature, 
require that the loop be executed at least once and 
it is therefore not necessary to make a check before 
beginning the loop. 

BGINDO communicates with BANANA through two tables 
KLLTB and LPTYP. KLLTB is a ten entry table with 
two words per entry and LPTYP is a ten entry table 
with one word per entry as shown: 
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Both tables are indexed by KLLTBX. BGINDO adds an 
entry and updates index KLLTBX for each Begin Do 
encountered. BANANA uses the information in an 
entry and decrements KLLTBX for each End Do encountered, 
The first word of the KLLTB entry is used to contain 
the symtab pointer to a generated label. This label 
is created by BGINDO to reference the end of a loop 
(i.e. the instruction to be executed when the loop 
has been satisfied). This label is only needed (and 
thus only created) when testing is done at the 
beginning of the loop. The second word of the KLLTB 
entry is used to contain the symtab pointed to the 
top-of-loop label, i.e. the label of the first 
instruction to be operated whenever the loop range 
is executed again. LPTYP contains a code that 
BGINDO uses to communicate with BANANA and designate 
what instructions should be generated at the end of the 
loop. 

Flowcharts: 
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4.3.10 



ASSEM 

ASSEM is the processor of the ASSEM statement. The ASSEM statement 
provides the facility for the FORTRAN programmer to generate hexa- 
decimal constants, address constants, and statement labels. These 
are received by Phase B as a consecutive list and processing is 
simply a matter of generating CON and ADC commands as appropriate. 
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4-4 PHASEB Subroutines 
4.4-1 AFIDL 

Subroutine AFIDL is an intermediate link between the 
PHASEB in-line processor of arithmetic IF statements 
and logical IF statements. 

AFIDL calls ASUPER and in addition performs certain 
checking and code generation. -EASUPER is responsible 
for generating code to evaluate arithmetic expressions .> 

1- AFIDL looks at the mode of the expression 

which was processed by ASUPER. If it is either 
a single precision or double precision floating 
point expression AFIDL generates an instruction 
to load the upper portion of the pseudo-accumu- 
lator {address CS> into the hardware accumulator 
so that test instructions may operate upon that 
value. 

2. If the expression type was integem AFIDL 

determines whether or not it is necessary to 
generate an 

INA D 

command to insure that the value -0 ■CFFFF lb > 

is not left in the accumulator- {Test instruc- 
tions do not allow for -D-> If necessaryi 
AFIDL generates such an instruction. 
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4.4.2 ASUPER 



i 



o 



ASUPER is the arithmetic "tree" processor. It is called once by 
each statement processor where the statement being processed contains 
an arithmetic expression. The following statements contain arith- 
metic expressions. 

1. Arithmetic Replacement Statement 

Processed by ARITHR which calls ASUPER for the expression 
on the right of the equal (=) sign. 

2. Statement Function 

Processed by PHASES which calls ASUPER for the expression 
on the right of the equal (=) sign. 

3. CALL Statement 

Processed in-line by Phase B which calls ASUPER for the 
CALL expression . (A CALL statement is put into the "tree" 
format where the CALL is the highest level operator and its 
parameters are the operands. 

4. GO TO (Computed) 

Processed by CGOTO which calls ASUPER for the expression 
which follows the GO TO parenthesized label list. 

5. Arithmetic IF 

Processed by f#AS£S which calls AFIDL and AFIDL calls 
ASUPER in turn for the expression within the parenthesis 
of the IF. 

6. Logical IF 

Processed by fW/ttf* which calls AFIDL and AFIDL in turn 
calls ASUPER for each arithmetic expression within the 
parenthesized logical expression. 

The job of ASUPER is to generate executable instructions which 
perform the evaluation of an expression. This is performed in two 
steps. 

I. The arithmetic tree is stepped through, operand by operand, in 
a search for subscripts. The disposition of them is based upon 
their type and whether or not their operator is a CALL , non- in 1 in: 
function call , or exponentiation (**) . If the operand is a non 
subscripted variable or non- subscripted partial variable, it is 
passed over. 

A. Variable only subscripted variable (partial or non-partial). 
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B. Increment only subscripted variable (partial or non-partial) 

C. Variable and increment only subscripted variable (partial 
or non-partial). 

D. Complex subscripted variable (partial or non-partial). 

Then one of two subscript processors (SUBPR1 or SUBPR2) is 
called upon to further process the subscripted variable. 

A. If the variable is an operand of an operator which is: 

1. a CALL 

2. a non-inline function, or 

3. an exponentiation (**) 

then SUBPR2 is called. 

B. If the variable is an operand of any other operator then 
SUBPR1 is called. 

II. Having completed the processing of all subscripts then ASUPER 
calls ACP which generates the instructions which evaluate the 
expression. 
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4.4.4 



ENTCOD 



Refer to section 4.2.1 (Program Structure) 
ENTCOD is responsible: 

1. For Subroutines and Function Subprograms, generation of all 
instructions from the entry point to the transfer to the 
start of the routine (label MBEGIN). 

2. For Statement Functions (with Main Subroutine, or Function 
Subprograms) generation of all instructions from the state- 
ment function entry point to the transfer to the start of 
the Statement Function. 

The Structure of the entry code (thus the instruction generated 
by ENTCOD ) is as shown: 



CON 



constant of marks the entry point to the subrou- 
tine or function subprogram or statement function. 



STQ 
LDQ 
STQ 



QSAV 

FF 

FFSAV 



instructions which save the value of Q and I 
indexes by storing in created storage locations 
QSAV and FFSAV. 



C 



RTJ 
ADC 



Q8PREP 
name 



return jump to the parameter pickup routine (PARAMS) 
at the initialization entry Q8PREP with an address 
constant of the entry point as a parameter. This 
code is generated only if there is at least one 
parameter to the subroutine or function that the 
entry code is being generated for. 



RTJ 



Q8PKUP 



(series of INA 
and PST commands 
to plug this 
parameter) 



return jump to the parameter pickup routine 

(PARAMS) at the pickup entry Q8PKUP which returns 

the address of the first parameter in the A regis- 
ter. 



RTJ Q8PKUP 

(series of INA 
and PST commands 
to plug this 
parameter) 



pickup of address of second parameter, 



RTJ Q8PKUP 

(series of INA 
and PST commands 
to plug this 
parameter) 



pickup of address of nth parameter 
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JMP KEXEC 



FFSAV BSS 1 
QSAV BSS 1 



jump to beginning of program. This jump actually 
initiates the execution of the subroutine or function, 
having completed the necessary index saving and 
parameter pickup and plugging 



storage cells to save Q and I index registers 



o 



The INA and PST commands which follow each RTJ Q8PKUP are based upon 
the final settings of KSUBAT, the subroutine argument table (for 
subroutines and function subprograms) or the settings of KSFAT, the 
statement function argument table (for entry code of statement 
functions) . 

1. Subroutines and Function Subprograms. At the point of 
operation of program ENCODE, KSUBAT has been completely 
built and it reflects each argument and each increment that 
has occurred with that argument throughout the compilation. 
The increments are sorted from lowest to highest and to 
each argument /increment pair is assigned a unique temporary 
storage cell. 

Having called Q8PKUP which returns with the address of the 
argument in the accumulator ENTCOD then generates instruc- 
tions which compute each resulting address (address of 
argument and increment) and a PST (Parameter store) where 
the operand of the PST is the temporary storage assignment. 

2. Statement Functions. At the point of operation of program 
ENTCOD, KSFAT has been completely built and it reflects 
each argument and a unique temporary storage cell assigned 
to that argument. (Statement function argument can occur 
with only the nominal increment of since they may never 
be subscripted). 

Having called Q8PKUP which returns with the address of the 
argument in the accumulator ENTCOD then generates a PST 
where the operand of the PST is the temporary storage 
assignment. 

Section 4.4.20 on DUMMY contains a more detailed description of the 
structure and dynamics of KSUBAT and KSFAT and a more detailed 
description of subprogram interface design. 

Flowcharts: 



o 



ENTCOD 



KPC3PR 
:iNDTAB-C2>n 
NCONnO 

KPC3PR 
:INDTAB-C5>-, 
NSTtf-, 
K(3SAV> 

/KPC3PR 
>€INI>TAB-C10> 

\ g55> 

KPC3PR 
:iNDTAB-C5>n 
KSTtf 
KFFSAV} 





CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART Q9 

DECISION TABLE □ 

OTHER □ 



DOCUMENT _ 

ct -* ss lis 



MACH. _ _ _„ 

tvpe 17DQ 



DOCUMENT 
TITLE 



ENTCOD 



lor 3 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 




1A 




_& 



I = IXX + 
KSUBAT -CIXXJ 



IXX = IXX+1 



XL 



INCREM = D 



J^L 




/KPC3PR 
ilNDTAB-CS>V 
\ NRTJn 

\KSPTAB-Cl/» 



INCRES 
KSUBAT 
INCREM 




EA 




PROJECT MOR. 



PROJECT NAME 



TASK NAME 



APPROVED 



I 

ru 



AA138B (FORMERLY CA127-1) 



V 



n 



■o 



© 



o 



W- 



INCREM= 
KSUBAT-CIXtf} 



4L 



kcom= 

NADD 




YES 



NO 






KPC3PR 
'aNDTAB-C2>n 

KCOfln 

INCRES}, 



/ KPC3PR 
/■CINDTAET-C5>\ 
WsTiKSUBa/cIXX}} 






^ 



KPC3PR \ 
•CINDTAB-CSjVi 
NRTJ-,KSPTAe-C13j> 

/ 



_^ 



ITEf1P = 
KSFAT-CI-,2> 



_^k: 




3A 



CONTROL D AT ACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE [^ 

FLOWCHART (^ 

DECISION TABLE \^_ 

OTHER [^ 



DOCUMENT — Mc , 

CLASS IrlS 



MACH._ ___ 

type17QQ 



DOCUMENT 
TITLE 



EMTCOD 



PAGE goF g 



ISSUE 
DATE 



DRAWN BY 



PROJEC T NO. 



PROJECT MGR. 



PROJECT NAME 



TASK NO. 



TASK NAME 



APPROVED 



I 





3B 



KPC3PR 

:iNDTAB-C5>V 

NPST-»ITEMP; 




KPC3PR 

ftlNDTAB-CS}-.' 
NJflPnKEXE' 



LABKPC 
-CKFFSAV} 



KPC3PR 
:iNDTAB-C2>n> 
NBSS-.-1} 



LABKPC 
•CKflSAV* 



KPC3PR 
-CINDTAB-C2}' 

NBSS-,1} 



RETURN 



30 



KPC3PR 
/•CINDTAB-C5>^ 
NRTJ-, 
vKSPTAB-Cm; 



±. 



'KPC3PR A 
•CINDTAB-C101-, 
NAD C-, KENT DR} 



± 



RETURN 



CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART [23 

DECISION TABLE □ 

OTHER | | 



DOCUMENT 
CLASS 



ins 



MACH. 
TYPE 



1700 



DOCUMENT 
TITLE 



ENTCOD 



:3 op 3 



ISSUE 
DATE 



DRAWN BY 



DATE 



PROJECT NO. 



PROJECT MCR. 



PROJECT NAME 



TASK NO. 



TASK NAME 



REV 



APPROVED 



DATE 



AA13B3 (FORMERLY CA127-1) 



PRINTED IN USA. 



CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER 



DIVISION 



o 



DOCUMENT CLASS 
PRODUCT NAME — 



ins 



3,700 (1ASS STORAGE FORTRAN 



PAGE NO. 



PRODUCT MODEL NO. CnOS*3.1 A/R 



MACHINE SERIES 



M-^S 



1700 



4.M.5 



FCMSTK 

FCMSTK is a subroutine used exclusively by KPCSTK for 
building floating-point calling sequences. The type of 
the floating-point calling sequence {single precision 
or double precision}' is transparent to FCMSTK- If the 
symbol table pointer is minus onei it indicates the 
special case of a double precision load from CS. FCMSTK 
specifically is responsible for monitoring the KFCET 
table. The structure of KFCET is shown: 
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hi 3 


lim 


BYTE WORD 


y/////*YA&'///////s 
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INDICATOR WORD 


OPERAND 


ADDITIVE 


3im 








Mim 








Sim 









The byte word -CKFCET-Cl-,1}} is divided into four M-bit 
bytes in accordance with the floating point calling 
sequence format. KBYTX indexes the byte position as 
shown: 

byte word 



IS 



12 11 



A 7 



H 3 



and: 



O 



KBYTX = In bits 15-12 

= 2-, bits 11-fl 

= 3n bits 7-i» 

= tH bits 3-0 

KFCETX indexes the rows of KFCET- There is space for 
from D to 4 entries in KFCET where each entry is 3 
words and comprises a row of KFCET -[Rows 2 through S> 
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Parameters: There are two parameters to FCNSTK: 

KF1 - floating instruction {see floating point 
package for a detailed list of floating 
commands}. The floating instruction is a 
H - bit value. 

KF2 - operand for those floating commands such as 
FLDi DLDt FSTt and DST where there is an 
operandi KF2 = D for those commands which 
have no operands -CFCOMn etc.}. 
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FCMSTK receives a call from KFCSTK with the parameter set for a 
floating command. (Hence, a request to add an entry to KFCET). 
FCMSTK adds the instruction byte to the byte word and updates index 
KBYTX. If there is an operand, FCMSTK updates KFCETX to the next 
entry and adds the operand to the table. (The indicator word and 
the additive are picked up from the original calling sequence to 
KPCSTK, KQ(1) and KQ(4) respectively. The exception is an indexing 
command, KF1 = F lfi , where the indicator word is created as a function 
of the current addressing mode and there is not an additive.) 

If: 

1. All four bytes of the byte word have been filled with float- 
ing commands, or, 

2. The last floating command entered was a stop (4) 

then FCMSTK "dumps" the KFCET table in the following manner: 

1. Generates the byte word as an integer constant. 

2. Generates each entry in the table as an address constant. 

3. Reinitializes all indexes to the table. 
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4.4.6 FINK 



FINK is a subroutine responsible for generating instructions of in- 
line functions. The choice to make a function in line or not in- . 
line was made on an individual basis for each function based upon: 

1. The number of locations which would be required to perform 
the function in line. And in contrast, 

2. The number of locations which would be required to execute 
a calling sequence. 

3. The overhead that must be paid to make a function a separate 
subroutine. 

The following functions were made in-line functions. They are listed 
with the instructions which are generated by FINK to execute them. 

1. IABS(I) 

LDA I 
AJP,GEZ SKIP 
TCA A 

skip : 

2. AND (I, J) 

LDA I 
AND J 

3. OR (I, J) 

LDA I 

LDQ J 

TCA A 

TCQ Q 

CAQ A 

4. EOR (I, J) 

LDA I 
EOR J 

5. NOT (I) 

LDA I 
TCA A 

6. ISIGN (I, J) 

LDA I 

MUI J 

LRS 31 

EOR I 

All other functions are library subroutines. 



\J 



i naiimw hi i i mum in m w,* t-m i i« rt < rni i * ■ /taummrnf S. r » wn a> 



FINK 



INTRX1 
INTRAX 



FETABX = 1 




"9 



YES 




INTRX1 = 
INTRX1-1 



'±. 



FETAB 
■CFETABX-,1} 
=INTRAX-CINT 



F!X1> 



±. 



INTRX1 = 
INTRX1-1 








_^ 



JOAN = 
INTRAS 
■CINTRXl+2> 



yL 



JOAN = 
JOAN-S 






V_ 



JOAN = 
JOAN+11 



^ 



2lL 



FETAB 
•CFETABX-,E> 
= 





±. 



FETAB 
-CFETABX-,3} 
= D 



1A 





■> 



YES 



^ 



JSId 



FETABX = 
FETABX+1 




CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE Q 

FLOWCHART [^ 

DECISION TABLE Q 

OTHER □ 



DOCUMENT 
C LASS 



Document 

TITLE 



DRAWN BY 



ins 



FINK 



'type 17 DO 



ISSUE 
DATE 



ice Iop t| 



PROJECT NO. 



PROJEC T MCR. 



PROJECT NAME 



TASK NO. 



TASK NAME 



APPROVED 



I 

o 



PRINTED IM USA 




±. 



FETAB-CFETABX 



=INTRAS-CINTRX1} 



2> 



±_ 



INTRX1 = 
INTRX1-1 



A 



FETAB-CFETAEX-,3} 
=INTRAS-CINTRX1} 




CONTROL DATACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE □ 

FLOWCHART Q 

DECISION TABLE □ 

OTHER □ 



AAI389 (FORMERLY CAU7-I) 

n 




m 



INTRX1 = 
INTRX1-1 



$ 



±. 




3A 



DOCUMENT 
CLASS 



ins 



DOCUMENT 
TITLE 



FINK 



DRAWN BY 



<lL 




3B 



2B 




XL 



ITILFX = 
ITILF-CISYMX]! 



\/ 



KPCSTK 
:iNDTAB{13>\NLDA-, 
FETAB-Cl-,l>j 

: etab-ci-,e: 

•CTABCIilfr > 





±. 



lib 




TYPE 17 OD 



ISSUE 
DATE 



PROJECT NO. 



PROJECT MQR. 



PROJECT NAME 



TASK NAME 



APPROVED 



DATE 



I 

fc-» 

■a 

ru 



( ) 



PRINTED IN USA 



o 



V 



3L 



.ABLER 
•CKSKIP} 



I 



KPC3PR 
:iNDTAB-CS>0 
IAJGEZ-.KSKIP} 



KPC3PR \ 
'iNDTAB-HD-A 
NTCAA-,0} 7 

I __ ' 

LABKPC 
-CKSKIP} 



RETURN 




± 



KPCSTK 
:iNDTAB-C13>v, 

iand-.fetab-c2-,!} 
:tab-c?-,2> 



[.TAB 



C5-.3; 



c 



RETURN 



^ 



>k_ 



KPCSTK 
■CINDTAB-C13>n\ 
OflnFETAB}^!}* 
FkTAB-CE-,2>n 
FE YAB-CijNai. 

. KPC3PR \ 
fCINDTAB-njA 
NTCAA-,0* / 

KPC3PR 
ftINDTAB-n>V 
NTC<3f2-,0> 



KPC3PR 
ftlNDTAB-HD-V 
NCA(3A-,0> 



V 



RETURN 



© 




3E 



V 



KPCSTK 
NDTAB-C133- 
iEORiFETAB-CE>,l>n 
FrTAB-CE-,E>n, 
FtVAB-Cg*3> 



/ KPCSTK 
/iNDTAB -H^ 
C NTCAA-,0* 



±L 



RETURN 



C 



3Z 



RETURN 



CONTROL DATACORPORATION 
SOFTWARE DOCUMENT 

SAMPLE CODE Q] 

FLOWCHART [X] 

DECISION TABLE [H 

OTHER [ ] 



DOCUMENT 
CLASS 



ins 



DOCUMENT r-THL/ 

TITLE FINK 



DRAWN BY 



M t A v C p H e 1700 



3of M 



ISSUE 
DATE 



PROJECT NO. 



PROJECT MGR. 



PROJECT NAME 



TASK NAME 



APPROVED 



o 

LU 



_f?vn>n»Ti_'*. ! _t-i 



© 



KPCSTK 
:NDTAB-C13>n> 
,NMUI-.FETAB-Ci-.1> 

:tab-ce-,2 w 

,TAB{gi3y > 

/ KPC3PR \ 
/CINDTAB-C2>A 
\ NLRS-.31} / 

KPCSTK 
IINDTAB-CIB^ 
NE0R-.FETAB-&-.1}-. 
'ETAB-Cl-.2>> 
:TAB{li3y > 



f RETURN J 



CONTROL D AT ACORPORATION 

SOFTWARE DOCUMENT 

SAMPLE CODE Q 

FLOWCHART £T] 

DECISION TABLE □ 

OTHER Q 



DOCUMENT _. Mr » 

CLASS IMS 



MACH. _ ___ 

TYPE 17DD 



DOCUMENT r-TMt/ 

title rlNK. 



PAGE 4 OF lj 



ISSUE 
DATE 



DRAWN BY 



PROJECT NO. 



PROJECT MSR. 



PROJECT NAME 



RE\ 



APPROVED 



DATE 



jr. 




AA1365 (FORMERLY CA127-11 



PRINTS) IN USA. 



{ ) 



L 



CONTROL DATA CORPORATION o DEVELOPMENT DIV o SOFTWARE DOCUMENT 

DOCUMENT CLASS ■ IMS PAGE NO M-l flS 

PRODUCT NAmp 1700 Mass Sf.ftn^gp FORTRAN 

PRODUCT NO. C0D5 VFRSION 5«0 MACHINF SERIES__I7_00 



4.4.7 






INTRAM 

INTRAM is a routine used in conjunction with ACP to generate instruc- 
tions.' 

INTRAM, basically, updates the one-dimensional table INTRAX. The 
major index to the table, INTRAX, is initialized to by PHASE4 
prior to entry of each statement processor. 

Format of the table is shown: 

INTRA - STATEMENT TEMPORARY STORAGE TABLE 

INTRAS 



Word 1 
2 



(Where L is 

table length) L 



J 



"level" 



zero, "level" separator 



"level" 1 



zero, "level" separator 



zero, "level" separator 



"level" N 
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Elements are of three types depending upon the type of storage they 
identify. Information within the elements is generally organized 
from bottom to top since updating of the table proceeds downward but 
information is scanned and introduced in a backward direction. 

A. Temporary Storage Element 

Word 1 



Word 2 
where: 

If 



N 



P is the symbol table pointer of the assigned temporary 

storage. 

N is the element designator. 

N — 3 the temporary storage was assigned to contain 

the results of a computation whose operator was not 

inverse. 

N = 4 the temporary storage was assigned to contain 

the results of a computation whose operator was 

inverse. 



Ps 



B. Operand Element 
Word 1 
Word 2 
Word 3 
Word 4 
where: 



N 



If 



P is the symbol table pointer of the variable. 
A is the additive of the base address where the operand 
is an array element. A = if additive is or if 
there is no additive. 

Ps is the symbol table pointer of the operand sub- 
script where the operand is an array element. Ps = 
if there is no subscript. 
N is the element designator. 

N = 5 the operand was not an inverse. 
N = 6 the operand was an inverse. 



C. Calling Sequence Label Element 
Word 1 



Word 2 



N 
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where: P is a symbol table pointer assigned previously by 

the subscript processor to label the cell containing 
the results of an address computation which must be 
stuffed into a calling sequence. 
N = 7 or. 8. 

D. Constant (non-symbol table pointer) Calling Sequence Element 

Word 1 C where C is a constant 

N = -7 



Word 2 



N 



Parameters 

Parameters are common locations KNTROL, IPTR, IADDIT, ISBSCP, and 
KINTYP. 

INTRAM performs 10 different functions depending upon the value of 
the controlling parameter KNTROL which can assume values -7 and 
+1 through +11. If KNTROL = ... 

1. INTRAS table is updated to next level: 

a. INTRAX is incremented by 1 

b. INTRAS (INTRAX) set to 

2. INTRAS table is updated back to next lower level. 
a. INTRAX is decremented by 1 

3. Temporary storage element of type N =.+ 3 is added to. current 
level of table. 

a. INTRAX is incremented by 1 and INTRAS (INTRAX) set to 
IPTR. 

b. INTRAX is incremented by 1 and INTRAS (INTRAX) set to 
KNTROL. 

4. Temporary storage element of type N = + 4 is added to current 
level of table (as per N = 3). 

5. Operand element of type N = 5 is added to current level of 
table. 
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c 



a. INTRAX is incremented by 1 and INTRAS -CINTRAX* 
set to ISBSCP. 

b- INTRAX is incremented by 1 and INTRAS -CINTRAX3- 

set to IADDIT. 

c INTRAX is incremented by 1 and INTRAS -CINTRAX} 

set to IPTR- 

d. INTRAX is incremented by 1 and INTRAS -CINTRAX3- 

set to KNTROL- 

b. Operand element of type N = b is added to current 
level of table {as per N = S>. 

7nfi. Calling sequence label element is added to current 
level of table -Cas per N = 3>- 

-7. Calling Sequence constant is added to current level 
of table -Cas per N = 3>. 

T. Dump instruction stringi add/subtract mode. The 
INTRAS table is scanned in a backward direction 
beginning at the current position of the index 
INTRAX at the last word of the latest entry added 
to the current level. 

a- As each element is encountered^ an add or sub- 
tract instruction is generated which references 
the operand designated in that element as per 
the element designator specification of non- 
inverse respectively. ADDn FAD-i or DADt SUBt 
FSBi or DSB is decided upon by interrogation 
of parameter KINTYP. KINTYP is set to In 2 or 
3 as computation is integern real or double 
precision respectively. 

b. If the element was temporary storagen and ele- 
ment designator was positive valuedn that 
temporary storage is released by call to the 
temporary storage allocation routinen TSAL0C- 
"{.Negative ! valued element designator indicates 
that the temporary storage was assigned for a 
subexpression and therefore should not be 
released until the use count has been decremented 
to 0.} 

c If the element was an operand element containing 
a non-zero subscript pointern level is searched 
for a temporary storage element containing that 
pointer- If foundn that temporary storage is 
also released through TSAL0C -CA subscript 
pointer may be a temporary storage yet not in 
level because it contains a subexpression 
result and must not be released.} Upon comple- 
tion of control function fln INTRAX points to 
the level break between the leve just processed 
and the preceding level of INTRAS- 
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ID- Dump instruction stringn multiply/divide mode. 

Exactly the same procedure as A with MUI/FMU/DMUt 
DVI/FDV/DDVt with following exceptions: 

a- Constantn integer operands are checked to 

determine whether they should be replaced by 
shiftsn and shifts substituted where appropriate 

b- Instructions for A-(3 sign extension are appended 
preceding integer divides. 

c Check is made to see if code is being generated 
for pass 1 of a floating multiply. If son 
inverses are ignored and all FDV -Cor DDV> 
instructions become FMU's -Cor DMU-'s}. 



11 



O 



12 



Dump parameter string. The INTRAS table is scanned 
in a backward direction beginning at the current 
position of the index INTRAX at the last word of 
latest entry added to the current level. As each 
element is encountered a calling sequence entry is 
created. 
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Backup over Parameter String. Function is exactly 
as in 11 except no actual code is output- This is 
performed whenever a function is done in-line and 
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4.4.8 INXRST 



INXRST is a short subroutine to generate the instruction sequence which 
restores the Q and I index registers. INXRST is called by END and 
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4.4.10 KOUTPT 

KOUTPT is the routine called to write a PHASE4 pseudo instruction output 
record. It is called upon for all pseudo instructions but not for 
the special records such as DATA and FORMAT. 



Steps : 



1. Transfer the number of words in this record to OUTBUF(l) (the 
word in any output record which normally designates the number 
of words in the record). This value is obtained by subtracting 
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4.4.11 KPC3PR and LABKPC 



Both of these routines are simply a single call to KPCSTK. Most calls 
to KPCSTK are made through KPC3PR or LABKPC to reduce the number of 
parameters, hence the number of words in the call. 

KPC3PR handles all calls where the last two of the five KPCSTK para- 
meters are always 0. LABKPC handles all calls to KPCSTK which are 
requests to output a label. (Only the second parameter varies from one 
call to the next). 
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4.4.12 LABLER 

LABLER is called by various PHASEB subroutines to create a symbol table 
entry which represents a label, i.e., a FORTRAN generated label. 

Parameters: 

I - returns the symbol table pointer of the entry created 
by LABLER. 

Flowchart: 
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4.4.13 ACP 

ACP is the routine which actually processes 
arithmetic trees. ACP scans each tree and 
generates commands. ACP is called by 
ASUPER and SUBPR3. ASUPER and SUBPR3 
are in turn called by individual statement 
processes. ACP calls INTRAN or KPCSTK 
directly to output commands. 
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4. 4.. 4 PARTSB 

PARTSB is called upon to generate instructions which load a byte or 
signed byte into the accumulator. Recalling the bit designations of 
the 1700 16-bit word: 

Bit #: 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 



Bytes are delineated in the symbol table by 

IPART(ISYMX) = 1, byte 

= 2, signed byte 

IPARTR(ISYMX)= the bit number of the right-most (least significant 
bit of the byte) 

IPARTL(ISYMX)= the bit number of the leftmost (most significant 
bit of the byte) 

In a given byte: 

15 L R 



VX//////YA 



v: 



.^ 

byte 
two basic instruction sequences are used: 

1. Byte (unsigned - except for the nominal case, L ~ 15, R - 0) 

X where X is the word containing the 
byte 

m where m = IPARTR(ISYMX) (omitted 
when m = 0) 



LDA 
ARS 
AND 



MASK where the mask is a generated constant 
such that bits 15 through bit 
(L-R+l) are and bits (L-R) through 
are 1. The generated constants for 
the masks are entered in the symbol 
as they are required. 



2. Signed Byte 


LDA 




ALS 




ARS 


Flowcharts: 
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where X is the word containing the 
byte 

where m - 15-IPARTL(ISYMX) (omitted 
when m = ) 

where n = 15-IPARTL(ISYMX) l IPARTR( ISYMX) 
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4.4.15 READIR 



W 



READIR is the PHASE B subroutine for reading an input record. It is 
called by PHASE0. 

Parameters: 

I = the Index to the input buffer (INBUFF(I)) designating the 
starting location to begin input. 

J = output parameter contains Index to the input buffer 

(INBUFF(J)) designating the beginning of non-header infor- 
mation of the record lust read in. 

Operation: 

1. Call READ and input a record beginning at INBUFF(I) specifying 
203-1 words. Since the buffer is 202 words long all inputs are 
through the last word of the input buffer even though most 
records do not require that much space. 

2. Compute J 

1. If there is notstatement label, J = 1+5. 

2. If there is a statement label 

a. J = 1+6 

b. output the label. 

3. Update ISTNO to new statement number. 

4. Output SIN pseudo instruction (gives PHASE C indication that 
a new statement is beginning and what the statement number 
is. 

5. Check to insure that the statement just read was not too 
large, for the available input buffer. If so call PUNT. 

Flowcharts: 
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4.4.16 SUBPR1 and SUBPR2 subscript processors. 

SUBPR1 and SUBPR2 are called upon by ASUPER to process subscripts. (See 
discussion of subscript processing in 4.4.2, ASUPER). 

Both programs check for operand types 26 (increment only subscripted 
variable) and 31 (increment only subscripted partial variable). No 
processing is performed on these two types. What then remains are types 
25, 27, 28, 30, 32, and 33, variable only, variable and increment, and 
complex subscripted partial/non partial variables. 

Parameters: 

I - input parameter to both SUBPR1 and SUBPR2 represents address of 

array which begins at the operand "type" code of a "tree" 
operand. 1(1) = type code. 

4.4.16.1 SUBPR1 

SUBPR1 processes subscripts which subscript variables that are not part 
of calling sequences. 

The subscript expression is then passed on to SUBPR3 which generates the 
instruction, which evaluate the subscript and leave the result in the 
accumulator. 

SUBPR3 sets its parameter 

II = if no actual evaluation was required, (i.e. operand was type 

25, 27, 30, or 32 and the variable in the subscript expression 
was not a partial. 

II = 1, or 2 if instructions for evaluation were actually required. 
(i.e., operand type was 28 or 33 (complex) or the variable 
in the subscript expression was a partial). 

SUBPR1 then references the returned parameter II. If II - 0, processing 
is complete. If II =£ 0, then: 

1. A temporary storage location is allocated. 

2. A store instruction is generated to store the result of the 
subscript evaluation. 

3. The variable type in the subscript expression is set to 24 (non- 
subscripted, non-partial variable). 

4. The temporary storage cell is added to INTRAS 'Vough a call to 
INTRAM (at this point INTRAS is at level 0, the level which 
contains subscript assignments. See discussion in 4.4.7, INTkAM) 
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^.4.16.2 SUBPR2 



SUBPR2 is the analogous processor to SUBPR1 but processes subscripts 
which subscript variables that are part of calling sequences * 

As in SUBPR1, the subscript expression is passed on to SUBPR3 which 
generates the instruction which evaluates the subscript and leaves 
the result in the accumulator. 

Then II is tested as in SUBPR2. 

If II = no actual evaluation was required but the value of the sub- 
script must still be in the A register so an LDA command is 
generated to load the subscript variable. 

Then an ADD instruction is generated to add the address of the sub- 
scripted variable to the value of the subscript. (In the run-anywhere 
case the relocation constant is also added). 

Finally, a label is created and a store instruction referencing that 

label is generated. The subscripted variable operand is then modified f 

to become a "calling sequence label element" (type 36). v - 
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4.4.17 SUBPR3 



SUBPR3 is called by SUBPR1 and SUBPR2 to generate the instructions for 
evaluating a subscript. Code generation is performed in three cases and 
the output parameter II is set accordingly: 

1. Partial variable only subscript, 11=1. 

2. Partial variable with increment subscript, II = 2. 

3. Complex subscript II = 2. 

When no instructions are generated, II =0. 
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M.H.lfl TSALOC 

TSALOC controls temporary storage allocation by updating 
and monitoring KTCAT-i temporary £ell ^allocation table. 

Table structure is shown: 

KTCAT {20-, 2} 



PTR 


A 















































where each row is a two word entry and: 
PTR = the symbol table entry 
A = available indicator: 

D = integer temporary storage 

1 = real temporary storage 

2 = double precision temporary 

storage 

3 = integer temporary storage 

4 = real temporary storage 

5 = double precision temporary 

storage 
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input or output parameter containing symbol 
table pointer to temporary storage cell- 
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N request parameter = 

1 integer temporary storage requested. 
TSALOC searches KTCAT for an available 
integer temporary storage -CA=3>. If 
one is founcN the pointer is passed 
back in KCELL and availability indicator 
is set to D. If none is found a new 
one is created and KTCAT is updated. 

2 real temporary storage requested. 
TSALOC searches KTCAT for an available 
real temporary storage -CA=4>. If one 
is foundn the pointer is passed back 
in KCELL and availability indicator is 
set to 1. If none is foundi a new one 
is created and KTCAT is updated. 

3 double precision temporary storage 
requested. TSALOC searches KTCAT for 
an available double precision temporary 
storage -CA=S>. If one is foundn the 
pointer is passed back in KCELL and 
availability indicator is set to 2. 

If none is foundi a new one is created 
and KTCAT is updated. 

•4 release request. KCELL contains pointer 
of temporary storage cell to be released. 
It is looked up in KTCAT and availability 
indicator is set to available^ 

D -* 3 

1 -> 4 

2 -» 5 
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4.4.19 HELEN 

I. General 



o 



Locations of several types of data and storage cells are not 
established implicitly in the source program. They include 
locations of: 

1. Variable Arrays 

2. Variables 

3. Constants 

4. Format information 

5. Temporary cells assigned by Phase 8 to contain intermediate 
computations. 

The emphasis of 1700 FORTRAN on conserving core space and 
optimizing relative addressing, necessitates location of this 
data in relation to the rest of the program such that space 
and speed are minimized. 

II. Implementation 

All programmer defined array?, variables, constants, etc., 
except format specifications will be output at the top of 
each program by Phase B Under certain conditions Phase C will 
take them from their place at the top of the program and relo- 
cate them within the program body. 

A. Format Information 
See NOPROC 

B. Arrays 

1. Though placement of an array within the program body may 
shorten references to it, far more references may be 
destroyed by so doing. 

2. Arrays are most often referred to in loops. Though there 
may be a great deal more references made to array elements 
during the logical sequence of a program's operation 
there will be far fewer physical references; that is, 
less space will be devoted to array references :han to 
single variable references. 

3. Considering the non-subscripted references to arrays, it 
is likely that because of their size at least some of 
the elements would not be accessable through 1-word 
commands regardless of the placement of the array. 
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H. Equivalence considerations may make optimum 

assignment of array positions a highly difficult 
analysis. Therefore-i arrays will be located 
at the beginning of the program. 

Constantsn Variables-i Temporary Cells 

1- Phase B 

Phase B will set a flag for a reference to any 
location which is a candidate for becoming a 
1-word command. The flag KRFCNT-i will be kept 
in a portion of each symbol table entry. Before 
execution of Phase C-% those counts will be set 
to D which refer to any types of data which have 
already been located by Phase B -[only special 
cases are located by Phase B>. 

2. Phase C 

Phase C will take all those with the flag set 
and relocate them in the body of the program 
such that they immediately follow the first 
unconditional jump after the first reference 
which defines the location -Ci-e-n STAn etc.}. 
Phase C will also revise references in the 
following manners 

a- The first reference to a cell which falls 
outside of a 127 cell distance between the 
cell and its reference is made a two-word 
command with a relocatable address operand. 

b. Every subsequent reference which falls out- 
side of the mentioned range but within range 
of the relocatable address operand will be 
made a relative-indirect reference to that 
operand . 

c When a subsequent reference is found which 

is outside of both rangesn the process begins 
over again as in 1- 

d- Variables and constants used only in Calling 
Sequences or others whose references are 
never candidates for 1-word commands end up 
with KRFCNT = Q. 

Temporary Cells 

1. Both one-wordn two-word and three-word temporary 
cells will be generated by Phase B to contain 
integem real and double precision intermediate 
results respectively. Temporary storages are 
the result of three major functions of Phase B- 
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Types t 

1. Two-word Temporary Storage 

It is likely that in most cases all 
references to twb-word temporary storage 
will occur only in single precision 
floating point calling sequences. If 
soi it will be advantageous {as in FORMAT 
and in most arrays! to place these cells 
outside of the program body. 
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2. One-word Temporary Cells 

It is likely that in most cases all 
references to one-word temporary storage 
will occur in instructions which are 
candidates for one word command and 
proper placement may improve efficiency 
to a very great extent. 

3- Three^word Temporary Storage 

•CSame as 3-a.l on page M-lbbl, 

b. Overlapping 

It is conceivable that when a real -Ctwo- 
word> temporary storage becomes free for 
reusen that it could be reused for two 
one-word temporary cells. 

Considerations: 

1. The ranges of two one-word temporary 
cells would have to very closely 
coincide such that they could be made 
consecutive cells. Such an analysis as 
this is not practical in Utility FORTRANi 
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at any rate such a situation is rare. 

2. If it were done, the method of placement of one- 
word cells (as the second word of constant 
commands) would be precluded and placement would 
become less efficient. 

3. A typical program will not have 1 and 2-word 
temporary storages in equal quantities but 
rather will have mostly one or the other. 



Conclusion: 
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Very little is gained by overlapping. FORTRAN does not attempt to 
overlap re-use of one-word and two-word temporary storage. 

III. Responsibilities of HELEN 

The responsibilities of subprogram HELEN, then, are as follows: 

A. To output BSS commands of arrays, variables, including equiva- 
lence considerations, and CON commands of constants. 

B. To process functions. 

1. Replace coded names of standard library functions with 
their library name. 

2. Set up index for in-line, functions for use by FINK 
(see 4.4.6) in generating in-line function instructions. 
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Subroutine interface for programs calling subroutines or functions 
generated by FORTRAN or calling sequences generated by FORTRAN. 

I. Calling Sequences 

A. Genera 1 

Calling sequences written in assembly language and intended to 

communicate with FORTRAN-generated subroutines, and those 

generated by FORTRAN from statements or expressions such as: 

CALL SUB (P.,P ,P ,...P ) or FUNC(P, ,P-,P g , . . . ,P ), will have 
. , c .. . L Z ,3 n 1 l J n 

the following code: 



LOC 
L0C+1 
LOC+2 
LOC+3 



RTJ* SUB 

address of parameter 1 

address of parameter 2 

address of parameter 3 



LOC+N 
LOC+N H 



address of parameter N 
(return address) 



(If the RTJ requires a 2-word relative command, then the first 
parameter will be at address LOC+2, etc., but this fact has 
no bearing on the logic of the interface.) 

In all cases, parameters are addresses of: 

1. variables 

2. constants 

3. storage locations containing results of computed parameters 

4. in the case of I/O calls, actual constants rather than 
addresses 

The CALL below contains examples of each of the first three types 
of parameters respectively. 

CALL SUB (VAR, 3.5, A-HB) 

Addresses of parameters occur in consecutive locations following 
the RTJ command, one cell per address in the order that the 
parameters appear in the CALL or. FUNCTION statement, left to 
right. 
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B. Floating Point 

Floating point calling sequences include other special data 
interspersed in the parameter list. Consult floating point 
specifications for differences. Tney are, however, germane 
to the discussion which follows. 

C. Run Anywhere Case 

Parameters may consist of two types of addresses: 

1. Absolute addresses 

a. All variables which are in COMMON will be generated 
as absolute addresses. 

b. All variables which are also parameters to the routine 
which contains the calling sequence will be computed at 
object time and placed into the calling sequence as 
absolute addresses. (Excludes floating point calling 
sequence parameters.) 

2. Relative Addresses 

These will be generated by FORTRAN for all variables which 
do not fall into the categories for absolute addresses. This 
need arises from the necessity to compute effective addresses 
of parameters at object time. Shifting the location of 
blocks of code destroys the integrity of any absolute address- 
ing which references variables internal to that block. What 
will be termed "self relative" addresses (which is what is 
meant by a relative address in a calling sequence) will be 
determined in the following manner: 

The address of the parameter (for example parameter 3) 
minus the location of the "self relative" address in the 
calling sequence (LOC+3), or: 

self relative address of parameter 3=(address of P_) 
- (address LOC+3) 

3. Bit 15 

Only the fifteen low order bits of a parameter (14-0) are 
absolutely necessary to express a parameter whether absolute 
or relative. 

a. Non-floating point calls 

In all calling sequences (except floating point) bit 15 
then, is used as a flag to distinguish between the two 
addressing modes in that: 



CONTROL DATA CORPORATION • DEVELOPMENT DIV • SOFTWARE DOCUMENT 

DOCUMENT CLASS u .,, ^!i, ,■■.,,,■■■-, PAGE NO- M-17b 

PRODUCT naaaf 1700 nass storage >uki ka n 

product no • . CODS > ^,,i( j; j 5-»D machine <; f w i f s i 7on 



bit 15 = 0, if this parameter is an absolute address. 

bit 15 = 1, if this parameter is a relative address. 
In cases of forward references, the bit 
would have to be set; in backward references, 
the bit would already be set. Thus part of 
the computation of a relative address (see 
entry routine) involves masking bit 15 off 
and extending bit 14 to the left. 

b. Floating point calls 

Floating point calls employ a different method of 
distinguisying between relative and absolute addresses. 
Bit 15, for relative addresses, is artificially set to 
0. Absolute address already have bit 15 = 0. 

D. Non-Run Anywhere Case 

1. Non-floating point calling sequences 

Parameters will consist only of absolute addresses as 

mentioned in 3a but will never require object-time [ 

computation, since programs will never enter memory except 

through the loader. Parameters still must be plugged by 

the entry routine but no computation of effective address 

is required. 

2. Floating point calling sequences 

The contrasting design of the floating point package now 
takes advantage of the indirect addressing ability of the 1700. 
Parameters which are indirect addresses are given a 1 in 
bit position 15. Its precise use will be outlined under 
paragraph B. 

II. Subroutine or Function Entry 

A. Entry routines will have the following general responsibilities: 

1. Picking up parameters and, if necessary, biasing the ones which 
are relative and plugging the addresses wherever necessary. 

2. Computing and setting up the proper return address to the 
calling program. 

3. Initializing the execution of the main part of the subroutine 
or function. 

B. The task of properly linking up instructions and other references 

to external parameters begins at the start of instruction genera- ( 
tion. The Subroutine Argument Table (KSUBAT) and the Statement ^ 
Function Argument Table (KSFAT) are built and updated in the 
following manner. 
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1. Initializing 

a. Function Subprograms 

The arguments are all placed in KSUBAT and made empty. 
(I.e., the table is initialized to show no increments.) 

Since the name of the function subprogram logically 
applies to the value of the function, but physically must 
apply to the entry point, the following procedure will be 
used to create the distinction: 

Two separate symbol table entries will be created for that 
name by PASS1 and both will be passed on to PHASE 4. The 
symbol table entry which refers to the entry point label 
will be differentiated from the symbol table entry which 
refers to the label of the function value by having bit 
15 of ISYM(l) set to 1. In the latter ISYM(l) will be 
0. In fact, all symbol table entries which are entry 
points (i.e., to include names of subroutines as well) 
will have this bit set. 

b. Statement Functions 

Statement Functions do not compute their values into 
labeled locations nor are they external to the calling 
programs. Thus, only a single symbol table entry is used 
and bit 15 is 0. 

All arguments (including the additional one if function 
is floating point) are initialized into the Statement 
Function Argument Table (KSFAT) in precisely the same 
manner as described for function subprograms. 

c. Subroutines 

Subroutine name entries in the symbol table will also 
■ have bit 15 set as noted above. Since subroutines pass 
results back through parameters they need no extra label 
nor do they need an extra parameter. Otherwise all argu- 
ments are initialized into KPCT precisely in the same 
manner as described for function subprograms. 

2. Updating (This is the function of subroutine DUMMY) 

2a. Updating KSUBAT 

Each time an instruction operand or a calling sequence operand 
is encountered which is an argument to the subroutine being 
compiled, it is paired with the additive (or increment) of 
that reference and considered unique from any other argument 
(or the same argument but different additives). 



CONTROL DATA CORPORATION • DEVELOPMENT DIV 



DOCUMENT CLASS 
PRODUCT NAME- 
PRODUCT no. CD05 



IMS. 



1700 Mass Storage FORTRAN 



SOFTWARE DOCUMENT 

PAGE NOJ" 1 ? 



.VERSION. 



2-0 



.MACHINE SERIES 



1700 



The unique argument additive is looked up in KSUBAT to see 
if it exists. If not, it is added to the table such that the 
additives are sorted lowest to highest. Also, a temporary 
storage cell is assigned to it and the reference to it is 
modified to a reference to the temporary storage cell as 
already described. 

When a temporary storage cell is assigned to replace argument 
references a special bit, KDUMY, is set in the symbol table 
entry for that temporary storage. 

2b. Updating KSFAT 

Updating KSFAT follows exactly the same procedure as outlined 
for KSUBAT, except that the instruction operands and calling 
sequence operands concerned are not those external to the pro- 
gram being compiled but rather external to the Statement Func- 
tion being compiled (i.e., dummy arguments of the function). 

3. Phase C 

Phase C must perform the following functions for both run-any- 
where and non-run-anywhere: 

a. When the first reference is encountered to a temporary 
cell (of the type described above, i.e., KDUMY - 1) 

it is made a two word command such that the operand is the 
contents of the address located in the second half of 
this instruction. The address of the second word of the 
instruction is kept and cross-referenced with the 
temporary cell. 

b. All subsequent references (less than 128 ceils distant) 
are made indirect references to the address portion of 
that command. 

c. When a reference is encountered outside of the range 
the process begins over again as in step 1. 

d. Whenever a reference is discovered in a calling sequence, 
the address of that parameter's location in the calling 
sequence is noted as in 1. Subsequent references may 
then refer back to this location subject to the same 
restrictions. 

e. When PhaseC encounters the pseudo-instruction PST, the 
operand portion will contain a pointer to a temporary 
cell (of the type described above). At this point, PHASE5 
must generate a STA command into each one of the addresses 
cross-referenced with that temporary cell. Phase B will 
already have generated all the preliminary code to compute 
the address of the parameter and its increment. 
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4. Entry Routines 



The entry routine is generated for each Statement Function 
and again for the whole Subroutine or Function Subprogram. 
(See ENTCOD 4.4.4.) 
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KPCSTK 

KPCSTK outputs pseudo code. KPCSTK updates the accumulator memory 
table (KART). KPCSTK adjusts addresses to reflect additives and 
subscripts. Some optimization is performed by checking sizes 
of constants (conversion of LDA commands to ENA wherever possible). 

Input parameters: 

1. Indicator entry from INDTAB 

2. Operation code 

3. Operand (constant or symbol table pointer) 

4. Additive value to Operand 

5. Symbol table* pointer to variable subscript of operand 

KPCSTK calls: 

KPOUT 

FCMSTK 

DUMMY 

GETSYM r 

KCPART V. 
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4.4..21 KSYMGN 



KSYMGN generates variable names used internally in the 
compilation of a routine as labels, temporary storage, 
or dummy parameters. The variables are stored in the 
symbol table and the pointer to the symbol table entry 
is passed to the calling routine in the parameter I. 

The generated names are of the form .hhhhh where h denotes 
a hexadecimal digit and the first generated name is .00000 

KSYMGN calls: 

CNVT 

STORE 

SYMBOL 
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5.2 Assembler Output Phase (continued) 

5.2.14 Subroutine NWRITE 

5.2.15 Subroutine PACK 

5.2.16 Subroutine RBDX 

5.2.17 Subroutine RBPK 

5.2.18 Subroutine SETPRT 

5.2.19 Subroutine TABDEC 

5.2.20 Subroutine UNPUNC 
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5. Assembler Phases C and D/E 

Phases C and D/E are the assembler phases of the 
FORTRAN compiler. Their function is to assign storage 
locations, assign index registers, optimize use of one- 
word addressing and produce relocatable binary and list 
output. 

Phase C is the input phase of the assembly process, 
and Phase D/E is the output phase. Subroutine PHASEC 
is the main processor for the input phase. The in- 
termediate pseudo-instruction output of phase C is written 
on a disk scratch file, from which it is read by 
PHASE6, the main processor for the output phase D/E. 

5.1 Assembler Input Phase C 

Three types of records are handed to the assembler 

by the previous pass; pseudo instructions, data strings 

and format records. 

r^\ 5.1.1. Pseudo Instructions 

Pseudo instruction records consist of 1700 commands, 
pseudo commands, labels and statement numbers. Sub- 
routine PHASEC processes all pseudo instruction records 
except storage reference instructions, conditional 
skip instructions, BSS pseudo instructions, constants 
and labels. Those items not processed by subroutine 
PHASEC arc processed by calls to the following sub- 
routines: 

Subroutine 
Storage Reference CL12 

Conditional Skip SKIP 

BSS BSS 

Constant CON 

Label LABIN or LABEL 

The initial pseudo instruction records read in the 
input pass contain variables, constants and arrays to 
which the assembler must assign storage locations. 
Subroutine LABIN performs this function. 

When the first executable command is encountered, ex- 
cluding the jump at the top of a main program, pseudo 
instructions are sent to the Index Optimization Sub- 
^__ routine, IXOPT. If an instruction is indexed, the 

/ ) subroutine decides which index to use. If the instruc- 

tion is not indexed, it is checked for its possible 
effect on subsequent indexing. 
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An output record is constructed for each pseudo instruc- 
tion and stored in the output buffer. Instructions with 
absolute operands 
are completely processed in the input phase. The output record 

is flagged as ready for output. Instructions with relocatable 
operands are partially processed. Final assignment of the 
operand address is made after analysis In the output phase. 
Address modes are identified in the input phase. All instructions 
with two-word relative ^addressing mode are flagged as one-word 
candidates. Instructions with no address mode field and those 
with a mode other than two-word relative are flagged as fixed 
length but not ready for output. 

Pseudo instruction records are placed in the output buffer by 
subroutine IN0UT. When an END record is 

encountered control is passed fi:om /7f/fi'£C to the output phase. 



5. 1.2 Data Strings 



Data strings are completely processed in subroutine DATAST. A 
separate output record, identified as an ORG record, is constructed 
for each datum in the same format as the pseudo instruction record. 

5.1.3 Format Records 

Format records are completely processed in subroutine PHASEC 
ORG records containing two ASCII characters are constructed in 
the same format as the pseudo instruction record. 

5.1.4 Record Formats 

5.1.4.1 Input Record Instruction Codes 

5.1.4.2 Breakdown of Input Record Indicator 

5.1.4.3 Input Pseudo Instruction Record Formats 

5.1.4.4 Output Record Formats 

5.1.4.5 Assembler Instruction Type Codes 

5.1.4.6 Breakdown of Output Record Indicator 

5.1.4.7 Pho-ae. C <xnd Jf/£ Ccmmorx $ looks 
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Instruction 


Code 
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ADC 
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CON 




3 


END 
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PARAMETER STORE 
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STATEMENT NO. 
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JMP 
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RTJ 




11 


LDA 




12 


AND 
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STA 
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STQ 




15 


RAO 
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ADD 
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SUB 
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LDQ 
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DVI 
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ADQ 




21 


MUI 
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EOR 
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KLDQ (I 


register 


load) 28 


KSTQ (I 


register 


store) 29 


ENA 




30 


INA 




31 


ENQ 




32 


INQ 




33 


LRS 




34 


LLS 




35 


QRS 
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QLS 




37 


ARS 
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ALS 
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Instruction Code 

Conditional Jump 

A Jump £ 40 

A Jump = 41 

A Jump 4 42 

A Jump % 43 

A Jump £ 44 

A Jump > 45 

Q Jump ^ 46 

Q Jump = 47 

AAQ A 60 

TCQ A 61 

TRA Q 62 

TCA A 63 

LAQ Q 64 
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BREAKDOWN OF INPUT RECORD INDICATOR 



Bit No. 




Hold 


er Name 


15 






NL 


14 






NT 


13 






NA 


12 






NS 


.11 






ND 


10 






NR 


9 
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NF 


7-2 








Instruction 




NTYPE 


code 


* 2 




= 
= 1 



Instruction 
code = 2 



= 2 

= 3 
= 4 

= 5 

NTYPE 

= thru 5 



Meaning 

Not used in input phase. 

This record is a label 

This record has an additive 

This record has an index 

Use indirect addressing mode 

Use two-word constant 
Addressing Mode 

Assign index to Q register 

Not used in input phase 



Addressing mode to be assigned. 

Absolute operand. Use one-word 
direct addressing mode. 

Absolute operand. Use two-word constant 
addressing mode. 

Not used 

Operand is relocatable 
Address constant 

Operand is absolute 
Address constant 

Instruction is address constant type 
through 5. See description of 
address. Constant types under 
Subroutine PHASE 5 (5.1.5.) 



1-0 



NOW! 



Number of words in the record minus 2. 



INPUT PSEUDO INSTRUCTION RECORD FORMATS 
(Assembly Input Phase) 



INSTRUCTION 



Holder Name 



LABEL 

BSS 

ADC 

CON 

END 

Parameter Store 

Statement Number 

Storage Reference Instr 
Type Code =£ 1 or 2 
Type Code = 1 or 2 

Register Reference and 
Shift Instructions 

Inter-Register Instr 



WORD 1 



Indicator 
Indicator 
Indicator 
Indicator 
Indicator 
Indicator 
Indicator 

Indicator 
Indicator 

Indicator 
Indicator 



WORD 2 



NOPC 



Label Pointer 
Instr Code 
Instr Code 
Instr Code 
Instr Code 
Instr Code 
Instr Code 

Instr Code 
Instr Code 

Instr Code 
Instr Code 



WORD 3 



NOPT 



Size 

Address Pointer 

Constant 

Operand Pointer 
Statement No. 

Operand Pointer 
Operand 

Operand 



WORD 4 



NADD 



Additive 



Additive 



WORD 5 



NXPT 



Index Pointer 
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OUTPUT RECORD FORMATS 
(Assembly Input Phase to Assembly Output Phase) 



' 

INSTRUCTION 



2 -o o 
2 *> O 

oo X 

cc i 



n r> 



z5 

m > 



ft 
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z 



WORD 1 



WORD 2 



WORD 3 



WORD 4 



WORD 5 



Holder Name 



NOPC 



NOPT 



NADD 



NXPT 



LABEL 
BSS 
ADC 
CON 

END 

Statement Number 

Storage Reference Instr. 

Type Code = 1 
Type Code ± 1 



Register, Reference, Shift 
and Inter-register 
instructions 
Skip Instructions 
ORG 
Continuation ORG 



Operand Code = 
= 1 
= 2 
= 3 



Indicator 
Indicator 
Indicator 
Indicator 

Indicator 
Indicator 



Indicator 
Indicator 



Indicator 
Indicator 
Indicator 
Indicator 



Label Pointer 

Size 

Address Pointer 

Constant 


Statement No. 



Binary Instr 
Bits 15-8 
Binary Instr, 
Bits 7-0 
*0perand Code 



Binary Instr 
Binary Instr 
Address Pointer 
Data Word 



Additive 

2nd word of a 
Floating Point 
Constant 



Operand or 
Operand pointer 



Additive 



Index 
Pointer 




Data Word 



NOPT = pointer to operand in symbol table 

NOPT = pointer to operand in IDVTAB 

NOPT = pointer to operand in NDSTAB 
NOPT = Absolute operand 
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ASSEMBLER INSTRUCTION TYPE CODES 



Code 

1 
2 
3 
4 
5 



Storage Reference 



7 
8 

9 
10 
11 

12 
13 
14 
15 
16 
17 
18 
19 



Addressing Mode Instruction 

One-word direct 

One-word indirect 

One-word relative 

One-wrod relative, indirect 

Two-word constant, 2nd word 

is an absolute address constant 

Two-word constant, 2nd word 

is a relocatable address constant 

Two-word absolute 

Two-word absolute, indirect 

Two -word relative 

Two-word relative, indirect 



Register reference 

and shifts 
Conditional Skips 
A register ^ 

A register = 

A register ^ 

A register ^ 

A register ^ 

A register -? 

Q register = 

Q register =£ 



20 
21 
22 
23 
24 



Conditional Jumps 
A register =£ 
A register = 
A register /L 
A register > 
A register ^0 
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25 
2b 
27 
3D 
31 
32 
33 
34 

40 

41 
42 
43 
44 
45 
4b 
47 
4fl 
5D 
51 
52 
53 
ST 
bD 



A register D 

Q. register = D 

(2 register r 

AAA A 

TC<2 A 

TRA (3 

TCA A 

LA<2 a 

BSS 

ADC Type 1 

ADC Type 2 

ADC Type 3 

ADC Type 4 

ADC Type 5 

Integer Constant 

Real Constant 

Double Precision Constant 

Data ORG 

Data Continuation ORG 

Program ORG 

Program Continuation ORG 

Statement No. 

END 



CA tsa-1 RSV 10-67 



CONTROL DATA CORPORATION 



IMS 



development: div 



DOCUMENT CLASS _ 

PRODUCT maaac 1700 Mass St.orayp FORTRAN - ■ 

PRODUCT NO. CDD5 ■. - - ^ion P. IT machi NE SERIES 



SOFTWARE DOCUMgNT 

5-12 



PAGE NO. 



1700 



v.x 



Breakdown of Output Record Indicator 



Bit No, 

15 
14 
13 
12 
11 
10 

9 

8 

7-2 

1-0 



Holder Name 

NL 
NT 
NA 
NS 
ND 
NR 
NQ 
NF 
NTYPE 

N0WI 



Meaning 

Skip this record 

This record is a label 

Operand address has an additive. 

Operand address is indexed. 

This record is ready for output. 

This record is fixed length 

Flag for address constant sub-type.. 

Flag for address constant sub- type. 

Assembler instruction type code. 
See list. 

Number of words in the record 
minus 2. 
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LIST OF HOLDERS, COUNTERS, FLAGS BUFFERS AND TABLES 
IN PHASE C and D/E COMMON BLOCKS 



NAME 

ICFLAG 

I COUNT 

ICT 

IDECR 

IDVTAB(312) 

IFIX 

INBUFF(203) 

INCT 

ISCOUN 
ITCOUN 
IUSE 

IV(5) 
IXC 

IXF 

IXFLAG 

IXQ 

IXSl(lO) 

IXS2(10) 



USE 

Change flag set in ADMAX 

Program counter 

Program counter increment 

Program address decrement set in ADMAX 

Table of address holders built in CHOP 

Fixed buffer indicator set in AMOUT 

Input buffer 

Index for INBUFF and NOBUFF. In phases D/E, 
circular buffer pointer to NOBUFF (always 
increases) 

Holder for ICOUNT saved from input phase 

Holder for ICOUNT saved from output phase 

Flag indicating use of I register in object 
program 

Temporary storage 

Occurrence flag for index to be assigned 
set in CHKWD and IXOPT 

Holder for contents of object time I register 

Decision flag set in CHKWD 

Holder for contents of object time Q register 

Table of saved indexes built in IXOPT 

Table of occurrence flags for saved indexes 
built in IXOPT 
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NAME 
IXS3(10) 

IXSX 
LRS 

NA 

NADD 
NADX 
NASCI 

NATYPE 

NBFL 

NBINC 
ND 



NDFL 
NDSTAB(500) 

NDXJ 
NF 

NFTAB(160) 
NL 



USE 

Table of equivalence table indexes 
for saved indexes built in IXOPT. 

Index for IXS1, IXS2 and IXS3. 

Flag indicating instruction is LRS 16. 

Additive flag extracted from record 
indicator. 

Additive to instruction operand address, 

Index for IDVTAB. 

Holder for alpha output word used in 
SETPRT. 

Assembly instruction type code in input 
phase. Index to alpha opcode table 
in output phase. 

Flag for last word in binary output 
record. 

Punch buffer index. 

Indirect flag extracted from record 
indicator in input phase. Flag indicat- 
ing instruction is ready for output 
in output phase. 

Temporary holder for "ready for out- 
put" flag used in CL12. 

Table of dummy parameter address 
holders built in CHOP. 

Temporary holder for ICOUNT. 

Flag in the record indicator used in 
PHASE 5 and AMOUT to indicate sub- 
type of address constant. 

Table of futures built in AMOUT. 

Indicator flag to ignore this record. 
Used in AMOUT. 
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NOBW 



NOCT 



NOBUFF(210) C 

(1152) D/E 



NODS 
NOFS 
NOPC 

NOPT 
NOUTOT 

NOWI 

NOWO 

NPCBF(57) 
NPTBF(55) 
NPTBFX 
NQ 



NR 



Number of binary words currently 
in the punch buffer 

NOBUFF index used in input phase 
In output phase D/E, next avail- 
able entry in circular buffer. 



Output buffer passed from the input 
phase to the output phase 

Index to NDSTAB 

Index to NFTAB 

Instruction code in input phase 
Partial or complete binary word 
in output phase 

Pointer to operand location in 
the symbol table 

Total number of words in NOBUFF 
In Phases D/E, last entry in 
circular buffer 

Number of words in the input re- 
cord extracted from the record 
indicator 

Number of words in the output 
record. Used in the input 
phase 

Punch buffer 

Print buffer 

Print buffer index 

Flag extracted from the record 
indicator indicating the index for 
this instruction has been assigned 
to the Q register. Used in the 
output phase as a flag for an 
ADC sub- type. 

Two word instruction flag extract- 
ed from the record indicator in 
the input phase. Fixed length 
flag in the output phase. 
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NAME 
NRCD(5) 

NRC1 
NRC2 

NRM 
NS 

NSETX 
NSUMD 

NSUMDS 

NSTYPE 



NT 



NTYPE 



NSUMVS 



NW2 



NW2FL 



NX 



USE 



Buffer for output record. Used 
in the input phase. 

Address relocation holder 

Address relocation holder for second 
word of a two-word instruction 

Program relocation holder 

F3 ng extracted from the record 
indicator indicating the 
instruction address is indexed 

Print buffer index 

Total number of storages in 
IDVTAB 

Total number of storages in 
NDSTAB 

Flag set when first executable 
instruction of the object 
program is encountered 

Flag extracted from the record 
indicator indicating this 
instruction is a label 

Holder for address type extract- 
ed from the record indicator 
in the input phase. Used for 
assembler instruction type in 
the output phase. 

Total number of storages in 
NFTAB 

Holder for second binary word 
of a two-word instruction 

Flag indicating a two-word 
instruction 

Index for INBUFF and NOBUFF 
usefd in BKDWN 
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NAME 



NXCON 



NXPT 



IHEAD 



INOB 



INC 



USE 

Holder for hex or decimal 
output word used in SETPRT 

Pointer to index address in 
the symbol table. 

Pointer to 'beginning' of 
circular buffer (always in- 
creases) . 

Size of NOBUFF, used to 
reference circular buffer in 
phases D/E 

Actual subscript in NOBUFF, 
calculated from INCT modulo 
INOB, by subroutine INDEX 
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5.1.5 Subroutine PHASEC 

Subroutine PHASEC is the first subroutine entered in the FORTRAN 
Assembler. Symbol table location holders, other than common, are 
backgrounded to 7FFF,,. The first input record is read here. 
Subsequent records are usually read in subroutine INOUT. They 
nay be read in other routines if a forward scan is initiated at 
the bottom of the current input buffer. 

If the input record is a data string or a format record the 

subroutine branches immediately to process the record. If the 

input record is a pseudo instruction record, subroutine BKDWN 
is called to determine the type of pseudo instruction. 

Following are descriptions of the types of pseudo instructions 
encountered and their processing. 

LABEL - Subroutine CHKWD is called to destroy any indexes saved 
in subroutine IXOPT since they will not be valid after a 
label is encountered. If this is a statement label, sub- 
routine LABEL is called. If this is a variable or constant ^—, 
label and the first executable instruction has not been 
encountered, subroutine LABIN is called. If the first 
executable instruction has been encountered, subroutine 
LABEL is called. 

BSS - Call subroutine BSS 

ADC - If the address constant is an external and if this is 
the first encounter, the program counter is put in the 
symbol table. If this is not the first encounter, the 
output record is set up without recording the program 
counter. 

If the address constant is not an external, it may be 
any one of five types. 

Type 1 - An entry in a table of addresses set up for a 
computed GO TO. Address is relative to refer- 
enced location computed in 16 bit arithmetic. 

Type 2 - A parameter in the calling sequence to a floating 
point subroutine when using relative addressing. 
By examining the run anywhere switch and the 
setting of the dummy argument identification bit 
in the symbol table, type 2 is broken down into 
four sub-types. C"^\ 

Parameter is not a dummy argument 

Address is relative to referenced storage computed 
in 15 bit arithemtic with bit 15 set to zero. 
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Parameter is a dummy argument 

Run anywhere program - address Is relative to 
referenced storage computed in 15 bit arithmetic 
with bit 15 set to one. 

Non-run anywhere program - If the parameter has 
been referenced, this address is the location of 
the previous reference with bit 15 set. If the 
parameter has not been referenced, this location 
will be stuffed with the computed address of the 
dummy argument. 

Type 3 - Parameter in a calling sequence to a subroutine 
other than floating point. Address is relative 
to referenced location computed in 15 bit arithmetic 
with bit 15 set to one. 

Types 4 & 5 are parameters in a calling sequence to a 
subroutine other than floating point or to a 
( V floating subroutine when absolute addressing is 

used. 

Type 4 is the relocatable address of the referenced 
location. Type 5 is the absolute address of the 
referenced location. 

The actual address is not computed in subroutine PHASEC bits NQ 
and NF in the indicator are used to flag the setting of bit 15 
and the type of address to be used. 

CONSTANT - Call subroutine CON 

PARAMETER STORE - This is a STA command with a special type code 

that tells the assembler the A register contains 
a computed address to be stored in a dummy parameter 
address holder. The first holder is always in the 
symbol table entry for this dummy parameter. The 
dummy parameter table is searched for any other 
holder that may have been created to maximize the 
use of one-word relative, indirect addressing. 
A store Address record is built for each holder. 
The first Store Address record contains a pointer 
to the entry in the symbol table. Subsequent 
records contain a pointer to the entry in the 
dummy parameter table. 
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STATEMENT NO. - These are numbers generated consecutively 

by the FORTRAN Compiler for each FORTRAN 
source record. The output record 
applies to list output only. 

STORAGE REFERENCE COMMAMD - Call subroutine CL12. On 

return from subroutine CL12, if the 
storage reference command is an un- 
conditional jump, the symbol table is 
searched for variable and constant 
holders and dummy parameter address 
holders that are ready for output. 
Variable and constant holders are 
ready for output when they have been 
used as the operands in a store type 
command. Dummy parameter address 
holders are ready for output after 
the first reference. Holders are identi- 
fied as ready for output in Subroutine 
CHOP. LABEL and BSS records are con- 
structed for each holder to be output. 
The current program location is en- 
tered in the symbol table. 

The dummy parameter table is also search- 
ed for any additional dummy parameter 
address holders to be output. A BSS 
record is constructed for each holder 
to be output. The current program 
location is entered in the dummy 
parameter table. 

REGISTER, SHIFT and INTER-REGISTER COMMANDS - Since 

these three types of commands have 
absolute operands , the binary output 
word is completely constructed. The 
output record is flagged "ready for 
output" . 

If the command is an LRS 16 the 
assembler examines the next record to 
see if it is an indexed DVI. If it 
is, and if the index in the DVI record 
is not in the I -register holder, sub- 
routine QXLD is called to construct 
the necessary index load and store 
commands to be inserted in the output 
buffer prior to the Long Right Shift 
Command. The index in the DVI command 
is placed in the I register holder. 

SKIP - Call Subroutine Skip 
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END - The symbol table and the dummy parameter 

table are searched for holders to be identi- 
fied as described under Storage Reference 
Commands. A dummy ENA record is output to 
avoid a possible BSS as the last command 
in the program. 

In the 16K version of 1700 Fortran, the 
current symbol table page is written and 
the page size is changed from 2400 to 960. 
Control passes to the assembler output 
phases D/E. 
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Subroutine BLDUP and 1N0UT are called to complete processing of 
the output record. Subroutine COUNT is called if the instruction 
to be output will occupy a storage location in the binary object 
program. 

Records placed in the output buffer from subroutine PHAS EC- 
are flagged as "fixed length" or "ready for output". Bits NR 
and ND in the indication are used for this purpose. A fixed 
length instruction that is not ready for output is cne with 
a forward storage reference that cannot be defined until jft^r 
analysis in the output phase. 

5.1.5.1 Flow Chart of Subroutine PHAS EC 

5.1.6 Subroutine BKDWN 

The function of subroutine BKDWN is to extract and store the 
information in the pseudo instruction record. In the Assembly 
■ Input Phase, these are the records constructed in the previous 
FORTRAN Compiler pass. In the Assembly Output Phase, these are 
the records constructed in the Assembly Input phase. 

See 5.1.4 for a detailed list of the input record breakdown. 

5.1.6.1 Flow Chart of Subroutine BKDWN ' 

5.1.7 Subroutine BLDUP 

Subroutine BLDUP sets up the records that are output from t h ■■: 
assembler input phase. See 5.1.4 for output record form-it. 

j.j."'.l Flow Chart of Subroutine BLDUP 

5.1.8 Subroutine BSS 

Subroutine BSS constructs a BSS output record. The programs 
counter is incremented by the size of the BSS. The record is 
flagged ready for output. 

A BSS size of minus one in the input record identifies the T 
register holder whi-h may be eliminated in the assembler output 
phase. In this case, the output record is not. flagged ready 
for output. 

'5.1.8.1 Flow Chart of Subroutine BSS 
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5.1.9 Subroutine CHKWD 

Subroutine CHKWD is used in the input phase of the FORTRAN 
Assembler. It checks all pseudo instructions to determine what 
effect, if any, they will have on current or future index register 
assignments. CHKWD is called from subroutine PHASE 5 whenever a 
label record is encountered and from subroutine IXOPT in both 
its primary and secondary scans of the input buffer. 

The following pseudo instruction records may affect index 
register assignment: 

Label - All index holders are cleared 

Return Jump - Any index holders containing addresses in the 

COMMON area are cleared. If an address currently 
to be assigned to an index register is in the COMMON 
area, the decision flag is set. 

Address Constant - Any index holders containing this address 

constant are cleared. If an address currently to 
be assigned to an index register is this address 
constant, the decision flag is set. 

Store Instruction - Any index holders containing the address of 
the operand of the store instruction are cleared. 
If the operand of the store instruction is in an 
equivalence chain, any index holders containing 
addresses in the same equivalence chain are cleared. 
If an address currently to be assigned to an index 
register is the same as the operand in the store 
instruction or is in the same equivalence chain, 
the decision flag is set. 

Q Destroying Instruction - The Q register index holder is cleared 
and the occurrence flag is set. 

The occurrence flag is set when an instruction affects index 
register assignment but is not decisive. The decision flag is 
set when an instruction is encountered that decides the index 
register assignment. These flags have meaning only if there is 
an address currently to be assigned to an index register. 

5.1.9.1 Flow Chart of Subroutine CHKWD 






S-3.S 



O 



REGISTER 
-IOLDER 
= D 



REGISTEi 
HOLDER 
= D 



o 



TAKE 
THEM OUT 

OF THE 

ITABLE 

— i 



REGISTER 
HOLDER 
= D 



REGISTER 
HOLDER 
= 



TAKE 

THEM OUt 
OF THE 
TABLE 




a 
a 



2>- 






2< 

3j 



3 
J* 
JZ 
<-* 

Q) 
C 

•f 

■M 
D 
O 
L 

JD 
D 

1/J 



Zlil 

It- 

o 
o 



ru 



1-3 



1 



WW 






z 
o 



-< 

o 

OL 

a 
o 
u 

< 

Q 
O 

a 

Z 
O 

o 



DEDG 



5 o 



CD 



O 



5-3t> 





Set Q. 
Holder = D 



±. 



Set 

occurrence 
flag for 
current IX 



Set 

occurrence 
flag for a" 1 
saved indexes 




Take theim 
out of 
the 
table 



□ 
n- 







T3 
3 

H 

Q) 
C 
•r* 

•P 
3 
O 
L 

XI 
D 

H 



ru 



o 
ru 



□ 



o 
o 



2o 



cr 



LH 




z 
o 

Z 
UJ 
2 

O 
O 

o 

W 

cr 
< 

U. 

o 



DSDD 



«/) U. Q 



00 



O 



CONTROL DATA CORPORATION • DBVBLOPMENV DIV o SOFTWARE DOCUMENT 

( \ S 17 

^ DOCUMENT CLASS IMS ; n ,... M , .., PAGE NO—. " _ 

PRODUCT Nam 1700 Mass Storage FORTRAN 

COOS rfFRSlON 2- machinf sfrifs 1700 



PRODUCT MD IUU5 .FUSION e-L) MACHINE SERIES 



5.1.10 Subroutine CHOP 

The function of subroutine CHOP is to flag all defined operands 
for which no holder has been generated, to build tables of address 
holders, and to determine the addressing mode of all storage 
reference commands for which no address mode has been set in the 
previous pass. 

An operand to be located within the body of the object program 
is flagged as defined if it is used in a store instruction or if 
it is an address constant. Holders for defined operands are 
generated following the next encountered unconditional jump 
instruction or at the end of the program. 

An operand whose address is not within the body of the object 
program that is, COMMON locations, externals, functions and 
dummy parameters, is flagged as defined on first encounter* 
Holders for the operand addresses are generated following the 
next encountered unconditional jump instruction or at the end 
( ) of the program. 

Subroutine CHOP builds two tables of address holders, IDVTAB and 
NDSTAB. 

Entries are made in IDVTAB for instructions referencing operands 
within the body of the object program when neither the operand 
holder nor any previous table entry for this operand can be 
reached with one-word relative direct or indirect addressing mode. 
The address of the referencing instruction and the address of the 
operand holder are entered in the tabie. Addresses of instructions 
referencing operands located in COMMON and a pointer to the operand 
address are also entered in IDVTAB on first encounter of the 
operand reference if the use count is greater than one. Subsequent 
references to the same operand are entered in IDVTAB if no previous 
reference can be reached with one-word, relative, indirect 
Addressing Mode. 

Entries are made in NDSTAB for instructions referencing operands 
outside the body of the object program (excepting COMMON locations) 
when neither the operand address holder defined in the symbol 
table nor any previous table entry for this operand holder can be 
reached with one-word, relative, indirect addressing mode. Entries 
consist of the address of the referencing instruction and a pointer 
to the operand address. 
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Addressing modes for instructions referencing operands lo- 
cated within the body of the object program are made one- 
wordr relative, direct if the operand holder can be reached 
or one-word, relative, indirect if a table entry for this 
operand can be reached. If this instruction address is 
entered in IDVTAB. the addressing mode is two-word absolute 
If the operand has not been defined, the addressing mode 
is two-word relative, direct- 

Addressing modes for instructions referencing operand 
addresses outside the body of the object program ar& made 
one-word, relative, indirect if a previously defined 
address holder can be reached. If this instruction is en- 
tered in NDSTAB. the addressing mode is two-word, relative, 
indirect. In the case of an operand located in COMMON, the 
addressing mode is two-word absolute if the instruction is 
entered in IDVTAB- 

S. 1.10.1 Flow Chart of Subroutine CHOP. 

5.1. ID. 2 Formats of IDVTAB and NDSTAB 
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5.1.11 Subroutine CL12 

Subroutine CL12 processes all storage reference instructions. If 
the operand of the instruction is an absolute address or a constant 
the binary output word is completely constructed and the output 
record is flagged ready for output. If the operand is a reference 
to a relocatable storage, the operation code field and the address 
mode field of the binary word are constructed. The address mode 
is determined either by the previous pass or by a call to Subroutine 
CHOP. 

Special type codes are assigned to compiler generated instructions 
to save, restore and hold the I register for use in Subroutine 
ADMAX in the output phase of the Assembler. 

5.1.11.1 Flow Chart of Subroutine CL12 

5.1.12 Subroutine CON 

Subroutine CON generates holders for constants as directed either 
by the previous pass or by Subroutine LABIN and CHOP in the Assembly 
input phase. 

5.1.12.1 Flow Chart of Subroutine CON 

5.1.13 Subroutine DATAST 

Subroutine DATAST processes a string of data. Holders for data 
defined within the body of the object program are generated at the 
beginning of the object program by subroutine LABIN. Locations of 
data defined in labeled COMMON are assigned by the previous compiler 
pass. 

An ORG record is constructed for each datura containing a pointer 
to the location of the array, the datum and address additive. 
ORG records are typed as program ORG or data ORG according to their 
location. A data word that is in a string of consecutively located 
data is typed as a program continuation ORG or a data continuation 
ORG according to the location of the array. ORG records are flagged 
ready for output. 

5.1.13.1 Flow Chart of Subroutine DATAST 

5.1.14 Subroutine INOUT 

Subroutine INOUT is the connecting subroutine between the input phase 
and the output phase of the FORTRAN Assembly pass. It reads records 
into the input buffer and writes records into the output buffer 
until the output buffer is full or an END record is encountered. 
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When the output buffer is full or an END record is encountered, pro- 
gram control passes to the Assembly output phase through a call to 
Subroutine AMOUT. On return from Subroutine AMOUT program control 
is passed back to the assembly input phase unless an unprocessed 
END record is present in the output buffer. In this case, program 
control is returned to the output phase. 

Subroutine INOUT also reads forward in the input buffer or re-fills 
the input buffer if necessary, to check for an indexed divide instruc- 
tion following a long right shift instruction. 

5.1.14.1 Flow Chart of Subroutine INOUT 

5.1.15 Subroutine IXOPT 

The function of Subroutine IXOPT is to assign index registers to 
indexed instructions. It is called from subroutine PHASE 5 for 
all pseudo instruction records except labels. 

If the instruction being processed is not indexed, Subroutine CHKWD 

is called to determine its possible effect on future indexing. If Cj 

the instruction is a store address with no additive present, the w 

operand pointer is saved in the A register holder. Otherwise, the 

A register holder is cleared. 

If the instruction being processed is indexed, any of the five follow- 
ing conditions will result in. index register assignment without 
further analysis of the input buffer. 

1. This index has been assigned to the Q register by the pre- ; 
vious compiler pass. 

2. This instruction is an indexed DVI. The index is assigned 
to the I register. 

3. This index is currently in the Q register holder. It is I 
assigned to the Q register. 

4. This index is currently in the I register holder. It is 
assigned to the I register. 

No indexing instructions are generated in the above four cases. 

5. Subroutine CHKWD sets the decision flag. This index is 
assigned to the Q register. An LDQ instruction is generated 
unless the index is in the A register holder. In this case 
a TRA Q instruction is generated. 

If none of the above five conditions is true, the input buffer is 
scanned forward until enough information is obtained to make the 
assignment. 

The forward scan stops and the index register under consideration 
for assignment is assigned to the Q register when one of the 
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following conditions is true. 

1. The decision flag is set in Subroutine CHKWD. 

2. The same register as that in the I register holder appears. 

3. The same register as that in the Q register holder appears. 
A STQ I instruction is generated before the index load 
instruction. 

4. A different index appears twice. An index is counted as 
appearing twice only if its occurrence flag has been set 
since its last appearance. 

5. A DVI instruction with no index or with an index different 
from the one under consideration is encountered. 

6. A label record is encountered. 

7. The scan reaches the end of the input buffer with no 
decision. 

An £DQ instruction is generated except when the index is in the A 
register holder. In this case a TRA Q instruction is generated. 

The forward scan stops and the index under consideration for 
assignment is assigned to the I register when one of the following 
conditions is true. 

1. The index under consideration appears again. It is counted 
as appearing again only if its occurrence flag has been 
set. 

2. A DVI is encountered with an index the same as the one 
under consideration for assignment. 

An STA I instruction is generated if the index under consideration 

is in the A register holder. LDA, STA I instructions are generated 

if the instruction being processed is an LDA. Otherwise, the instruc- 
tions generated are LDQ, STQ I. 

The occurrence flag is set for the index under consideration if a 
Q destroying instruction is encountered in the forward scan of the 
input buffer. The occurrence flags for the index under consideration 
and all saved indexes are set when an index appears that has not 
previously been encountered either in the buffer or in the Q or 
I register holders. 

5.1.15.1 Flow Chart of Subroutine IXOPT 

5.1.16 Subroutine LABEL 

Subroutine LABEL constructs output records for statement and variable 
labels. The program counter is stored in the symbol table entry for 
the label being processed. The record is flagged ready for output. 
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5.1.16.1 Flow Chart of Subroutine LABEL 

5.1.17 Subroutine LABIN 

Subroutine LABIN is called from subroutine PHASE C to assign storage 
locations to certain variables holders, constants and arrays. 
LABIN is called only if the first executable statement of the object 
program, excluding the jump at the beginning of a main program, has 
not been encountered. 

Storage locations are assigned for all equivalenced arrays, all 
DATA arrays and all other arrays which occupy more than twenty 
locations. Arrays occupying twenty locations or less are assigned 
storage locations if their use count is less than one third the 
size of the array. 

Storage locations are also assigned to variable holders which are 
used only once and to referenced constants. 

All other variable holders, constants and arrays are ignored by 

subroutine LABIN. Storage assignments will be made for these items r~ 

after they are used in the object program. ' -■ 

5.1.17.1 Flow Chart of Subroutine LABIN 

5.1.18 Subroutine QXLD 

The function of Subroutine QXLD is to generate indexing instructions. 

According to the input parameter, QXLD will generate a LDA, LDQ, 
STA I, STQ I or TRA Q. If the instruction to be generated is a 
LDA or LDQ, Subroutine CHOP is called to determine the addressing 
mode. Subroutines BLDUP, INOUT and COUNT are called to output the 
instruction and bump the program counter. 

5.1.18.1 Flow Chart of Subroutine QXLD" 

5.1.19 Subroutine SKIP 

Subroutine SKIP generates one or two conditional skip instructions 
and a two-word relative unconditional jump instruction for every 
conditional jump instruction encountered in the input buffer. 

The skip records are flagged as fixed langth. The jump instruction 
is a candidate for reduction to one word or elimination in the 
Assembler output phase. 

Below are listed the conditional jump instructions received from the 
previous compiler pass and the corresponding instructions generated 
by the assembler: 
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Conditional Jump Instruction Generated 

A Jump ^ SAZ 2 

JMP 

A Jump - SAN 2 

JMP 

A Jump 4. SAP 2 

JMP 

A Jump 2. ° SAM 2 

JMP 

A Jump ^ SAZ 1 

SAP 2 
JMP 

A Jump y SAZ 3 

SAM 2 



\_J, Q Jump = 



JMP 

SQN 2 
JMP 



Q Jump =£0 . SQZ 2 

JMP 

5.1.19.1 Flow Chart of Subroutine SKIP 
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5.2 ASSEMBLER OUTPUT PHASE D/E 

In phase D/E the pseudo-instructions output by phase 
C are converted to relocatable code. Address opti- 
mization and final assignment take place in this 
phase. The 'D/E 1 notation is used because for a 
given compilation either phase D or phase E is exe- 
cuted, but not both. Phase E is loaded and executed 
whenever the A or M options (assembly listing) 
are requested, otherwise phase D is used. The 
relocatable code output by phase D/E is punched on 
cards and/or stored on the load-and-go file accord- 
ing to the P and X options respectively. 

5.2.0.1 Distinction between Phases D and E. 

Phases D and E are virtually indentical with two 
major exceptions. First, subroutine SETPRT and all calls 
to SETPRT are omitted from Phase D. Second, in the 
2.QA version of 1700 FORTRAN phase D uses a 'com- 
pressed' symbol table requiring two words per entry, 
as opposed to the five words required by the normal 
symbol table. The structure of this compressed 
symbol table is: 



First word 
of entry 



15 


14- 11 


10 - 


8 


7-5 


4 - 


- 2 


1 







I CLASS 




I COM 








J 














/ 


1 



KDUMY 



IREL IEXT 



Second word 



IRS A 



of entry 



The meanings of the above variable names are found 
in the Chapter 7, where the normal symbol table is 
described. In the 2. DA version of Phase D, sub- 
rountine BEGINO packs the normal symbol table into 
the compressed symbol table. Subroutines GETSYM 
and SYMSCN are altered to reference the compressed 
table, and all routines except BEGINO and FINISH 
have access only to the compressed symbol table. 
In theE.QA version of Phase D, subroutine AMOUT 
stores the IRSA entries of externals into INBUFF 
after the END record is processed, and subroutine 
FINISH retrieves these entries from INBUFF rather 
than from the normal symbol table. 
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5.2.0.2 Circular output buffer 

Subroutine PHASE6 in phase D/E reads the output of 
phase C and stores it in the output buffer NOBUFF. 
For effective address optimization, NOBUFF must 
be filled at the 'bottom' as instructions at the 
'top' are converted to relocatable code and output. 
To speed this process the storage assigned to NOBUFF 
is referenced by 'circular buffer pointers' that 
always increase. The NOBUFF subscript is calculated 
by reducing' the given pointer modulo TNOB (NOBUFF size) 
using the function INDEX. In this way new information 
can be added to the output buffer without moving the 
unprocessed information xn core, and the virtual 
size of NOBUFF is infinite. Subroutine PHASE6 refills 
NOBUFF from the phase C disk output file as necessary, 
and initializes and maintains the major circular 
buffer pointers IHEAD ('top' of buffer), NOUTOT 
('bottom' of buffer) , and NOCT (next available buffer 
location) . 

r >.2.0.3 Summary of Phase D/E Flow 

Records flagged ready for output are sent through 
the output routines starting with the first record 
in the buffer and continuing until a record is en- 
countered that is not flagged ready for output. 
If this record is not sitting at the 'top' of the 
buffer, it is pushed to the 'top'. If no end record 
is present in the buffer, control is returned to 
PHASE6 to refill the buffer at the 'bottom.' On 
return, a forward scan of the buffer is initiated 
to find instructions that are one-word candidates. 
When a one-word candidate is encountered, subroutine 
ADMAX is called to decide whether or not to reduce 
the instruction to one word. The methods used to 
delete commands, maintain the program counter and 
make final assignment of operand addresses are 
fully detailed in the description of subroutines 
AMOUT and ADMAX. The scan of the output buffer is 
repeated once. At this point the record at the top 
of the buffer plus any following records flagged 
ready for output are forced out of the buffer. If 
no END record is present in the output buffer, control 
is returned to PHASE6 to fill the output buffer and 
the process is repeated. 
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5.2.1 



Subroutine PHASE6 



5.2.1.1 
5.2.2 



Subroutine PHASE6 is the main processor for phase D/E. 
It initializes the circular buffer pointers, calls 
subroutine BEGINO, fills the output buffer NOBUFF, 
and calls subroutine. AMOUT. At every return from AMOUT, 
subroutine PHASE6 refills the output buffer at the 
•bottom', overlaying the pseudo-instructions that have 
been processed by AMOUT. After AMOUT has processed 
the END record and returned, PHASE6 calls subroutine 
FINISH, punches the transfer card at the end of the 
relocatable output, and returns. 

Flowchart of Subroutine PHASE6 

Subroutine BEGINO 



Subroutine BEGINO prints and punches the initial 
records of the final compiler output. It prints 
the length of labelled and blank common, converts 
the name of the program being compiled to ASCII 
dode, prints (phase E only) and punches the NAM 
record and the DAT and COM list. In the 16K version 
of 1700 FORTRAN, subroutine BEGINO halves the symbol 
table page size and packs the full symbol table 
into the two-word entry compressed table used by 
phase D. 

5.2.2.1 Flowchart of Subroutine BEGINO 

5.2.3 Subroutine AMOUT 

Subroutine AMOUT is the main processor for the output 
phase of the FORTRAN Assembler. Its function is to 
maximize use of one-word instructions, eliminate un- 
needed instructions, and send binary and ASCII out- 
put to the punch and list routines. 

AMOUT makes a primary scan through the output buffer 
sending all instructions that are ready for output 
through processing and to the output routines until an 
instruction is encountered that is not ready for out- 
put. The output buffer is then moved up to elimi- 
nate the processed instructions and PHASE6 is re- 
entered to fill the buffer. 

If the instruction at the 'top 1 of the buffer is not 
ready for output, a secondary scan is initiated in 
which no output is generated. Every instruction that 
is a candidate for reduction to one word or elimina- 
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tion is sent to Subroutine ADMAX. ADMAX sets a 
change flag if any instruction is reduced or eliminated 
The entire output buffer is scanned once. The. pro- 
gram counter is initialized for each scan and kept 
current throughout the scan. 

In the 2- DA versionr AMT is used to call AMOUT. 
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Instruction at the top of the buffer must ' be output. If the addrejs 
reference has not yet been identified or if the distance from the 
current location to the address reference is more than 1256 , the 
instruction is stored in the future table. A binary output record 
to be read in at the current location at object time execution will 
be generated when the referenced location appears at the top of 
the output buffer. 

If the distance from the current location to the address reference is 

equal to or less than 1256.,, the output buffer is fixed to the point 

of the forward reference. fhis is accomplished by storing the location 

of the forward reference in IFIX. The number or size of instructions 

to be output may not be changed as long as the location of the instruction 

or the location of its forward reference is less than or equal to 

IFIX. 

Processing of the instruction at the top of the buffer is completed 
and the record is flagged ready for output. AMOUT then goes back to 
the primary scan. 

When the END record appears in the output buffer, IFIX is set nega- 
tive at the end of the secondary scan to force all instructions out 
of the buffer. 

5.2.3.1 Flow Chart of Subroutine AMOUT 

5.2.3.2 Format of the Future Table, NFTAB 

5.2.? Subroutine ADMAX 

Subroutine ADMAX analyzes the instructions sent to it for possible 
reduction in size or elimination from the object program. It is 
called from subroutine AMOUT when a record is encountered that is 
not flagged as fixed length or ready for output. 

There are three situations which may produce reduction in size or 
elimination of an instruction: 

1. The I register is not used in the object program. The 
compiler generated instructions to save and restore the I 
register and the I register holder are eliminated. 

2. The program counter is not fixed and the distance to the 
address reference is less than 128.,,. The type of the two- 
word instruction is changed to the corresponding one- word 
type; that is, two-word relative direct or indirect becomes 
one-word relative direct or indirect. 
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3. The program counter is not fixed, the instruction is a 

conditional jump and the distance to the address reference 
is less than 16, Q . The jump instruction is eliminated and 
the preceding sKip or skips are changed to reflect the elimina- 
tion of the jump. 

The fifteenth bit of the indicator is set in a record con- 
taining an Instruction to be eliminated. This will cause 
subroutine AMOUT to ignore the record. 

A decrement count is set for instructions reduced in size 
or eliminated. Subroutine TABDEC is called to decrement 
all affected storage addresses. 

5.2.4.1 Flow Chart of Subroutine ADMAX 

5.2^" Subroutine CONV 

Subroutine CONV converts a binary word to decimal format. It is 
handed two parameters by the calling program. The first is the loca- 
tion of the word to be converted; the second is the location into 
which the converted word is to be stored. 

5. 2. 6 Subroutine COUNT 

Subroutine COUNT increments the program counter. The increment 
holder, ICT, is always set at one unless re-set by the calling 
program. 

5.2.7 Subroutine FINISH 

Subroutine FINISH lists the program length, referenced externals, and 
undefined symbols, if any. It also generates binary external records. 

5.2.7.1 Flow Chart of Subroutine FINISH 

5.2.ff Subroutine IAC0N 

Subroutine IACON converts a two-word symbol name (ISYM - 
packed by CNVT) to ASCII format and stores it in the 
print buffer. 

5.2.9 Subroutine IHCON 

Subroutine IHCON converts a binary word to hex format and stores it 
in the print buffer. 

5.2.10 Function INDEX (INX) converts the circular buffer pointer 

INX (which always increases) to a subscript of NOBUFF. 
That is, INDEX (INX) is equal to INX modulo INOB (NOBUFF 
size) . 
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5. 2. ft Subroutine LABOUT 

Subroutine LABOUT puts labels in the print buffer by calling subrou- 
tines IACON or IHCON as applicable. It also checks the future table, 
NFTAB, for references to this label. If any references are found, 
LABIN outputs a binary record origined at the location of the instruc- 
tion referencing the label. The binary record contains the location 
of the label or the distance from the label to the reference depending 
on the addressing mode of the instruction. 

5.2.//. 1 Flow Chart of Subroutine LABOUT 

5.2. /a Subroutine NPUNCH 

Subroutine NPUNCH outputs binary records from the punch buffer and 
clears the buffer. 

5.2.13 Subroutine NP20UT 

Subroutine NP20UT sends one or two output images to the 
binary output routine and to the list output routine 
(Phase E only) according to the size of the instruction. ,>- 

The program counter is bumped for each image that is output. (^ 
5.2.13.1 Flow Chart of Subroutine NP20UT 

5.2.1? Subroutine NWRITE 

Subroutine NWRITE outputs one list record from the print buffer and 
sets the buffer to ASCII blanks. 

5.2.16" Subroutine PACK 

Subroutine PACK is called from subroutine NWRITE to pack the output 
image in the print buffer. 

5.2.U Subroutine RBDX 

Subroutine RBDX is called from subroutine RBPK to compute the location 
and position of a binary word and its associated relocation byte in 
the binary output record. RBDX is called from subroutine UNPUNC 
to compute the location and position of the "last word flag" in 
the binary output record. 

5.2.16.1 Flow Chart of Subroutine RBDX 

5.2.17 Subroutine RBPK 

Subroutine RBPK packs one binary word into the punch buffer. When /"""^ 

the buffer is full, subroutine UNPUNC is called to empty the buffer. v_- 
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5.2.17.1 Flow Chart of Subroutine RBPK. 

5.2.13 Subroutine SETPRT 

Subroutine SETPRT constructs the opcode and address fields of 
a list output record and calls Subroutine NWRITE to output the 
record. SETPRT is in Phase E only. 

5.2.1g.l Flow Chart of Subroutine SETPRT 

5.2.17 Subroutine TABDEC 

Subroutine TABDEC is called frcr^ subroutine ADMAX to decrement 
addresses that are affected by a change in the output buffer made 
in ADMAX. The symbol table, and the two tables of address holders, 
IDVTAB and NDSTAB, are searched for program addresses that are greater 
than the current program count. All such addresses found are decre- 
mented by the amount handed from ADMAX to TABDEC in the decrement 
holder, IDECR. 

5.2.1V. 1 Flow Chart of Subroutine TABDEC 

5.2. 20 Subroutine UNPUNC 

Subroutine UNPUNC calls subroutines RBDX and NPUNCH to output 
the contents of the punch buffer. 

5.2.2<?.l Flow Chart of Subroutine UNPUNC 
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fcj.3-3 Basic External Functions 

b.3. 4 Special Calls 

b.4 Discussion by Routine 

b-4.1 (3fl(3INI Routine 

b.4-2 Q&QX Routine 

b.4. 3 flflflUNI Routine 

b-4.4 tfflCMP Routine 

b-4.5 flflRUBU Routine 

b-4-b flflFGET Routine 

b.4. 7 (3AERRM Routine 

b.M-fi <2flf1AGT Routine 

b.H.T <2flIFRM Routine 

b.4-10 GflFS Routine 

b.4. 11 (2ATRAN Routine 

b.4. 12 (3fl(3END Routine 

b.4. 13 TAPCON Routine 

b.4.14 IOCK Routine 

b-4.15 PSSTOP Routine 

b.4- lb flfiPAND Routine . 

b.4. 17 Subroutine flflEXPT 

b.4-lfl Subroutine <2flEXPl 

b-4-11 flflDFIO Routine 

b.4.20 IFALT Routine 

b.4.21 Subroutine OfiDXPT 

b.4- 22 Subroutine (2ADXP1 
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b-S I/O Restrictions 

b.S.l Structure of Unit History Table Entry 

b.b Error Message 

b.b.l General Discussion 

h.b.2 An Error in the FORMAT Statement 

h.b-3 Illegal Character in the Input Field 

ti-b-H Input Data Exceeds Limits of 17DD Word 

b.b.S Improper Use of Unit 

b.t-7 Illegal Formatted Input 

b.b.fl Illegal List 

b.ti.T File Defined Twice 

b.b.lD Parameter Negative or Zero 

t.b'.lli Sector Address Too Large 

b.b.12 File Not Defined 

b.b.13 Logical Unit Not a Mass Storage Device 

b.b-m Record Number in READ or WRITE Request Incorrect 

b.7 Records 

b.7.1 Binary READ-WRITE Statements 
b.7.2 Formatted READ-WRITE Statements 
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b-D OBJECT TIME I/O ROUTINES 

b-1 GENERAL DESCRIPTION 

I/O Requests of the following forms are handled by the I/O 
routines: 

READ -CurflL WRITE -CutflL READ -Ck-Cn>rf>L WRITE -Ck-Cn>rf>L 

READ -Curf* WRITE -Cu,f} READ -Ck{n>f> WRITE -Ck-Cn>rf> 

READ -Cu>L WRITE -CuJL READ -Ck-CnJIL WRITE -Ck-Cn>>L 

READ -Cu> REWIND u READ -Ck-Cn» WRITE -Ck-Cn» 

BACKSPACE u ENDFILE u OPEN -Ckri,jrUrX> 

EOF -Cu> IOCK -Cu> IFALT -Cm} 

where u is the logical unit number of an input/output devicer 
f is the number of a format statement r L is a I ist of 
parameters to be input or output , k is a file numbers n is 
a sector number r i is the number of sectors per record* 
j is the number of records per filer x is a starting sector 
numberr and m is the type of floating point fault. 

b-2 CALLING SEQUENCE FOR I/O REQUESTS 

b.2.1 Three Request I/O 

I/O requests with parameter lists generate calls to three 
routines: the initialize routiner the transmission routiner 
and the terminate routine. 

In i t ia 1 i ze Rout ine 

The initialize routine is named <3fl(3INI and has the following 
cal I ing sequence : 

RTJ OflOINI 

1. flag word 

2. I/O request number 

3. unit number or address of unit number 

M . format statement address or address of 
format statement address. 

for disk filesr words 3 and M are- 

3. file number or address of file number 

M . sector number or address of sector number 

5. format information as i n L 4 for non-disk 

The bits of the flag word are designated to represent the 
.■■ / "~^ following information: 

V-' BIT SETTING 

IS Not Used 
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BIT 

m 

13 
IE 

11 

ID 

A 

7 
b-0 



SETTING 

1 formatted 
D unformatted 

1 unit number 

address of unit number 

1 format statement address 

address of format statement address 

1 list 

D no list 

1 read 

not read 

1 write 

not write 

1 disk I/O 

D no disk I/O 

1 sector number address 

D address of sector number address 

not used 



b.2.2 



Transmission Routine 

The transmission routine is named flfl(2X and has the 
following calling sequence: 

RTJ daax 

1. address of list element 

Terminate Routine 

The terminate routine is named (2fl(2END and has the 
following calling sequence: 

RTJ tififlEND 

One Request I/O 

I/O requests without parameter lists generate only a call 
to the initialize routine. The calling sequence is the 
same as described for flfi(3INI above. 
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b»5-3 Auxiliary Input/Output Statements Calling Sequence 

REWIND u 

RTJ <3A(3UND 

1. address of u 

BACKSPACE u 

RTJ (3_c3BCK 

1. address of u 

END FILE u 

RTJ <3A<2FLE 

1- address of u 

OPEN - allocate disk addresses and open disk file 
RTJ (2A(2DFNF 

1. I/O request number 

E- address of file number 

3. address of number of sectors per word 

M- address of number of records per file 

5. address of logical unit number 

b. address of starting sector number 

fcj.E-M Basic External Functions 

End of file check EOF 

RTJ EOF 

1 . address of u 

I/O error check IOCK 

RTJ IOCK 

1. address of u 

Floating point error condition check IFALT 

RTJ IFALT 

1- number Oi In E in binary 

b-E.S Special Calls 

Pause and stop statements 

PAUSE 

RTJ <2A<2PSE 
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PAUSE n 

RTJ (2fi<2PSEN 

1. octal number n in binary 
STOP 

RTJ G3ASTP 

STOP n 

RTJ dflSTPN 

1. octal number n in binary 
b.3 DISCUSSION BY STATEMENT TYPE 

b.3.1 READ and WRITE 

I/O requests of the form READ and WRITE are handled by the 
same I/O routines. The initialize routinei (2fl(2INI., 
interprets the information in the calling sequence and 
initializes the required routines. The transmission 
routine transmits the address of the element to the pro- 
cessing routine. If no FORMAT statement is involv/edi 
the processing routine in dflBINBi otherwise (2AIFRM is the 
processing routine. When all the elements have been 
processedn (3fl(3END is called to terminate the input or 
output. 

READ and WRITE requests without a list are handled by the 
initialize routinen (2fi(2INI. After the calling sequence 
has been interpreted! (3fi(3INI calls the required processing 
routine. When the request has been processedn (26<2INI 
calls <26<2END to terminate the input or output. 

k>.3.2 Auxiliary Input/Output Statements 

A REWIND u statement is handled by the routine <2fl(2WND. A 
status request is made to determine if the unit may be 
rewound. If the statement is il legal t error message b 
is typed and exit is made to the Utility System. If the 
statement is legal t a rewind request is made. 

A BACKSPACE u statement is handled by the routine tfflflBCK. 
A status request is made to determine if the unit may be 
backspaced. If the unit may not be backspaced! error 
message b is typed out and exit is made to the Operating 
System. 
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An END FILE u statement is processed by the routine <3flt3FLE. 
A status request is made to determine if the unit is capable 
of writing an end of file -CE0F}. If an EOF may not be 
writteni error message b is typed and exit is made to the 
Operating System. 

flfldUND-, dfidBCK-, and (3fi(3FLE are grouped together in the 
program names TAPCON. They make use of common subroutines. 

An OPEN dn i-, j-, ui x request is handled by the routine 
dfiDFNF which is in the program (2SDFI0. A table entry 
containing the file number i logical uniti and starting 
sector number is set up and the file space used is 
allocated- Several errors can result if the parameters 
are incorrect. The table entry is used by subsequent 
READ or WRITE requests for that file. 

Li. 3- 3 Basic External Functions 

E0F-Cu> function is serviced by the routine EOF. If bit 
12 of the unit history table entry for u is sett an end 
of file has been written by the previous WRITE request. 
The A register will contain one upon exit from EOF. Bit 
12 not set results in the A register containing two upon 
exit from EOF. 

EOF is grouped with <2fl(2FLE-, Q&amV -> and (2fl(2BCK in the 
program TAPCON. 

IOCK-Cu* function is serviced by the routine IOCK. If bit 
2 of the unit history table entry for u is seti an error 
occurred during a previous I/O operation. The A register 
contains one upon exit from IOCK. Bit 2 not set results 
in the A register containing two upon exit from IOCK. 

IFALT-CI1 function is serviced by the routine IFALT. The 
input parameter I may take on the following meanings! 

I = D Check for overflow 
1=1 Check for divide fault 
1=2 Check for underflow 

The values that the parameter may return are: 

1=1 Condition occurred 
1=2 Condition did not occur 
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b-3.M Special Calls 



A PAUSE statement is handled by the routine (3APSE. The 
message PAUSE is typed out and a typewriter read is executed 
The program continues when a carriage return is typed in. 
PAUSE n is handled by the routine (36PSEN which is the same 
as flflPSE except PAUSE ni where n is a 5 digit octal numbern 
is typed out. 

A STOP statement is handled by the routine (3fiSTP. The 
message STOP is typed out and an exit request is made to 
the Operation System. STOP n is handled by 06STPN which 
is identical to <3flSTP except STOP m where n is a 5 digit 
octal numberi is typed out. 

flflPSEn (SfiPSEN^ (2SSTP-, and dflSTPN are grouped together in 
the program named PSSTOP. 



b-M DISCUSSION BY ROUTINE 
b.M.l <2fl(2INI Routine 



The purpose of this routine is to interpret the calling 
sequence and initialize the appropriate routines. The 
routine is written in 1700 assembly language. 

Three entry points are declared: dflOINIn £3flUNITn and 
(38SKTP. The calling sequence to flafllNI is described 
in b.2.1. (2SUNIT contains the unit number of the I/O 
request. dflSKIP is called whenever the next record for 
formatted I/O is to be input or output. 

The following externals are declared! 

(2AERRM in flBERRM 
dfllNTB in (36RWBU 
dflEREn in flBERRM 

caaTon in <aa<3x 
dflcnpo in aacnp 

(SflHAGT in <3flHAGT 
<3a<3END in (3fl(3ENI> 
flfll'FRri in (3AIFRH 
(38IGP in tfftf GET 

dacnpi in (3acnp 

flflflUN2 in <36<2UNI 

b-M-B C2fit3X Routine 

The purpose of this routine is to transmit the address of 
the element and call the appropriate processing routine 
{binary or format>. The routine is written in 1700 Assembly 
Language . 

AA 3777 PRINTED IN USA 



CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER DIVISION 

DOCUMENT CLASS_I!!S : . PAGE NO bll. 

PRODUCT mamp 17nn MASS STORAGE FORTRAN 



O 



PRODUCT MODEL un rDD5*3.1 A/B . _ MACHINE SERIES 17DD 

The following entry points are declared: (2fl(2TOrin 
(3fl(2X-C(3fl(2TRM>T <2fl(3Yn flfltfZn and (2AI10VE. 

(2flr3TOn calling sequence: 

LDA flag word 

RTJ <2fl(2TOri 

dfltfX -Cc2fit3TRM> is described in b.2.1. 

flfiNOVE calling sequence: 

RTJ flflMOVE 
ADC value 
ADC switch 

For Binary Transmission the following rules apply: 

A. RTJ (2fl<2X -Cone word transmission} 

1- address of integer list element 

B-i RTJ (3fl(2Y {two word transmission} 

1. address of single precision floating 
point element 

C. RTJ <3fl(2Z {three word transmission} 

1. address of double precision floating 
point element 
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For read, value is moved to the address of the list element plus 
switch. For write, the list element plus switch is moved to the 
address of value. 

The following externals are declared: 

Q8IFRM in Q8IFRM "' 
Q8BINB in Q8RWBU 
Q8QUN1 in Q8QUN1 
Q8UNIT in Q8QINI 

6.4.3 Q8QUNI Routine 

This routine is composed of three subroutines to insert data into and 
fetch data out of the unit history table. The routine is written in 
1700 assembly language. The following entry points are declared: 
Q8QUN1, Q8QUN2, and Q8QUN3. 

Q8QUN1 calling sequence: 

LDQ unit \,_J 

RTJ Q8QUN1 

Return with A register containing unit history table entry 

Q8QUN2 calling sequence: 

LDA value 
LDQ unit 
RTJ Q8QUN2 

Value is logically ORed into the unit history table entry 

Q8QUN3 calling sequence: 

LDA value 
LDQ unit 
RTJ Q8QUN3 

Value is stored in the unit history table entry 

The following external is declared: 

Q8EREM in Q8ERRM 

6.4.4 Q8CMP Routine f^) 

The routine is written in 1700 assembly language. Q8CMP has 2 entry 



CONTROL DATA CORPORATION • DEVELOPMENT DIV • SOFTWARE DOCUMENT 

DOCUMENT CLASS IMS PAGE NO_kz3 

PRODUCT namp 17 00 nass Storage FORTRAN 
PRODUCT no _ CODS ym ? . ; , , E.Q " N 



iC 



.MACHINE SERIFS 1700 



points, Q8CMP0 and Q8CMP1. Q8CMP0 initializes the input /output 
request. Q8CMP1 implements the input/output request retaining a 
composite error history which is left in the A register upon return, 
when entry is from Q8QEND. 

Q8CMP0 calling sequence: 

LDA flag word 
LDQ unit 
RTJ Q8CMP0 

Q8CMP1 calling sequence: 

LDA indicator (non zero if entry from Q8QEND, otherwise 0) 
RTJ Q8CMP1 

Return with A = composite error history (if indicator non zero) 

The following externals are declared: 

Q8EREM in Q8ERRM 
Q8BEGB in Q8RWBU 
Q8L0CB in Q8RWBU 
Q8CLRB in Q8RWBU 
Q8RINT in Q8RWBU 



6.4.5 Q8RWBU Routine 



This routine is written in 1700 assembly language. Q8RWBU has seven 
entry points: Q8IBUF, Q8INTB, Q8L0CB, Q8BEGB, Q8CLRB, Q8RWBU, and 
Q8BINB. Q8IBUF is the first word in the physical record buffer. As 
such Q8IBUF is zero for all physical records except for the last 
physical record when Q8IBUF is equal to the number of physical records 
in the logical record. 

Q8INTB initializes buffer counters and, if the request is a READ, 
inputs the first record from the 1/0 device. Q8L0CB. loads the address] 
of the current buffer location into the A register. Q8BEGB loads 
the address of the first buffer location into the A register. Q8CLRB 
backgrounds the buffer with zeros for binary I/O and ASCII blanks 
for formatted 1/0. Q8RINT reinitializes the buffer counters. 

Q8RWBU loads a character from the conversion routine into the buffer 
for WRITE requests and from the buffer to the conversion routine for 
READ requests. 

Q8BINB loads a binary word from the list into the buffer for WRITE 
requests and from the buffer into the list for READ requests. 
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tffilNTB cal 1 ing sequence: 

LDA flag word 
RTJ 'flfllNTB 

tfflLOCB ca 1 1 ing sequence: 

RTJ dfiLOCB 

Return with A «= address of current buffer location 
tfflBEGB calling sequence: 

RTJ dflBEGB 

Return with A = address of beginning buffer location 
tffiCLRB calling sequence: 

RTJ GAC.LRB 
(3SRINT calling sequence: 

RT.I dflRINT 

tffiRUBU calling sequence: ^ 

CALL (36RUBU -TCHAR} or RT.I flflRUBU 

ADC CHAR 

CHAR is the location of the character to be stuffed into the 
buffer {WRITE! or the location to stuff the next buffer 
character into {READ}. 

In a statement of the form 

CALL flfiRUBU {CHAR} 

CHAR may be a decimal number whose corresponding hexadecimal 
number gives the ASCII symbol to be stuffed into the buffer 
{WRITE}. 

<2flBINB calling sequence: 

RTJ tffiRINB 

The following externals are declared: 

dfirnpi in oacnp 

dflEREM in (3AERRM 
AA 3777 printed m usa 
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b^.b flflFGET Routine 



This routine is written in 1700 assembly language. tfflFGET 
consists of four entry points: (36L0CFr flfllGPr <3fiFGET r 
and tfflFPUT. dflLOCF loads the character counter into the 
A register- (3AIGP clears the 
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character counter and stores the FORMAT statement address. Q8FGET 
fetches a character from the FORMAT statement. Q8FPUT stores a 
character into the FORMAT statement. 

Q8L0CF calling sequence: 

RTJ Q8L0CF 

Return with A = character counter 

Q8IGP calling sequence: 

LDA format statement address 
RTJ Q8IGP 

Q8FGET calling sequence: 

CALL Q8FGET (ADR, SAVE, REP) or RTJ Q8FGET 

ADC ADR, SAVE, REP 

Where ADR is the address where the FORMAT statement character is 
to be stored; SAVE is a flag - means ignore, 1 means save the 
current character count less 1 in FR, 2 means save the current 
character count less 1. in GR; REP is a flag - means ignore, 
1 means set the character count to FR, 2 means set the character 
count to GR. 

Q8FPUT calling sequence: 

CALL Q8FPUT (ADR) or RTJ Q8FPUT 

ADC ADR 

Where ADR is the address of the character to be stored into the 
FORMAT statement. 

There are no externals declared by Q8FGET. 

6.4.7 Q8ERRM Routine 

The routine is written in 1700 assembly language. The purpose of 
this routine is to process error messages. Three entries are declared 
Q8ERRM, Q8EREM, and Q8FERM. Q8ERRM converts the 1/0 request number 
and unit number from binary to ASCII decimal. Q8EREM processes 
error messages from 1700 assembly language routines. Q8FERM pro- 
cesses error messages from 1700 FORTRAN language routines. 
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Q8ERRM calling sequence: 

LDA I/O request number 
LDQ unit 
RTJ Q8ERRM 
i 
Q8EREM calling sequence: 

LDA error type 
RTJ -Q8EREM 

Q8FERM calling sequence: 

CALL Q8FERM ( I) or RTJ Q8FERM 

; ■ ADC I . 

Where I is the error type number. 

The following externals are declared: 
i 
Q8L0CF in Q8FGET 
Q8L0CB in Q8RWBU 



6.4.8 Q8MAGT Routine 



The purpose of this routine is to check the status of the magnetic 
tape unit specified for the READ/WRITE request. The routine is written 
in 1700 assembly language. There is one eitry: Q8MAGT. 

Q8MAGT calling sequence: 

LDQ flag word 
LDA unit 
RTJ Q8MAGT 

The following externals are declared: 

Q8EREM in Q8ERRM 
Q8QUN2 in Q8QUNI 
Q8C0MI in PSSTOP 
Q8QWND in TAPCON 



6.4.9 Q8IFRM Routine 



The purpose of this routine is to initialize certain cells and call 
either the format scanner (Q8FS) or the conversion and transmission 
routine (Q8TRAN) based on the setting of the input parameter I ENTY. 
It is coded in FORTRAN and is defined as follows: 
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SUBROUTINE <2flIFRM -CIENTYi IRU-. ILIST* 

The input parameters have the following meaning: 

IENTY - Switch which determines the phasing 
of the call- = 1/0 list just 
beginning to be processed -Centered 
from <2fl<2INI}. 1 = I/O list being 
processed -Centered from (3fl(2X>. 

IRbl - Read/Write Switch. D = Read-, 1 = Write. 

ILIST ■- Any list associated with this I/O. 
1 = listi D = no list . 

b.M.lD (3SFS Routine 

The purpose of this routine is to scan the FORMAT state- 
ment interpret individual subfields-. and pass the 
resulting field specification parameters to the conver- 
sion and transmission routinei (2ATRAN- It is coded in 
FORTRAN and is defined as follows: 

SUBROUTINE <2flFS -CIRU-, IFU-, IND-, ITYPEt IRF-, IRGi 
IBCTi ISURt ILIST-, IANYL> 

The input parameters have the following meaning: 

IRU - Read/Write switch. D = Readv 1 = Write. 

IFli) - Number of characters in I/O field. 

IN]) - Number of characters to right of decimal 

point . 
ITYPE - Type of conversion to be done 

1 = A 

2 = R 

3 = E 
i* = F 
5 = $ 
b = I 
7 = D 

IRF - Number indicating the number of times the 

current field is to be repeated. 
IRG - Number indicating the number of times the 

current group is to be repeated. 
IBCT - Number indicating the parenthesis count. 

+1 for all -C and -1 for all >. 
ISUR - When this switch = 2 a new I/O is performed! 

otherwise not. It is a delayed read/write 

switch. 
ILIST - = no listi 1 = list associated with this 

I/O statement. C^) 

IANYL - D no conversion specification exists in ^^ 

FORMAT statement.. Non-zero = at least 1 

conversion specification exists. 
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6.4.11 Q8TRAN Routine 

The purpose of this routine is to convert the next subfield for I/O 
based on the appropriate FORMAT specification and transmit the subfield 
to or from core. It controls all I/O done under FORMAT control. 

It is coded in FORTRAN and is defined as follows: 

SUBROUTINE Q8TRAN (IRW, IFW, IND, ITYPE, IRF, IRG, IBCT, ISWR, 
ILIST, IANYL) 

The input parameters have the same meaning as described in section 
6.4.10 for Q8FS. 

6.4.12 Q8QEND Routine 

The purpose of Q8QEND is to terminate the READ/WRITE request and store 
the cumulative error history into the unit history table. The routine 
is written in 1700 assembly language. The only entry is Q8QEND. 

C ) Q8QEND calling sequence: 

RTJ Q8QEND 

The following externals are declared: 

Q8CMP1 in Q8CMP 

Q8QUN1 in Q8QUNI 

Q8QUN2 in Q8QUNI 

Q8UNIT in Q8QINI 

6.4.13 TAPCON Routine 

TAPCON consists of magnetic tape function routines. The routine is 
written in 1700 assembly language. Entries are Q8QBCK, Q8QFLE, Q8QWND, 
and EOF. Calling sequences and functions are described in 6.2.3, 6.2.4, 
6.3.2, and 6.3.3. 

The following externals are declared: 

Q8EREM in Q8ERRM 

Q8CMP0 in Q8CMP 

Q8CMP1 in Q8CMP 

Q8QUN1 in Q8QUNI 

Q8QUN2 in Q8QUNI 

Q8QUN3 in Q8QUNI 

Q8IBUF in Q8QINI 
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6.4.14 IOCK Routine 



The routine is written in 1700 assembly language. IOCK is a routine 
to check for any I/O error. It is described in 6.2.4 and 6.3.3. It 
has one entry point: IOCK. 

The following externals are declared: 

Q8QUN1 in Q8QUNI 
Q8QUN3 in Q8QUNI 

6.4.15 PSSTOP Routine 

PSSTOP consists of the special calls Q8PSE, Q8PSEN, Q8STP, Q8STPN, 
described in 6.2.5 and 6.3.4 plus the entry Q8C0MI. The routine 
is written in 1700 assembly language. Q8C0MI reads the teletype- 
writer for one character. 

Q8C0MI Calling Sequence 

RTJ Q8G0MI 

One external is declared: Q8PAND 

6.4.16 Q8PAND Routine 

The purpose of Q8PAND is to type PAUSE or STOP followed by 5 octal 
digits if specified. The routine is written in 1700 assembly language, 
It has one entry point, Q8PAND. 

Q8PAND calling sequence: 

LDA NUM 
LDQ ADR 
RTJ Q8PAND 

Where NUM is a binary number to be converted to 5 digit ASCII 
octal, or, if NUM 0, to be ignored. ADR is the address of 
PAUSE or STOP in ASCII. 

There are no externals. 

6.4.17 Subroutine QSEXP^ 

Routine converts a binary integer and decimal exponent into a 
floating point number. The integer is assumed to be greater than 
0. Exponents may be positive, negative, or zero. 
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Input parameters: P address of 2 word binary integer 

P contains most significant 16 bits 
P + 1 contains least significant 12 bits, right 

justified 
PI address of decimal exponent 

Output parameters: P, P+l contains floating point number (0 if 

underflow has occurred, $7FFF, $FFFF if over- 
* flow has occurred) 

PI error indicator 
implies no error 
^0 implies error 

Routines Used: FLOT 

Used by: Q8TKAR (FORTRAN object time conversion routine) 



6.4.18 



Language: 1700 Assembly 130913*396" 
Subroutine Q8EXP1 

Converts a floating point number to an octal fraction with decimal 
exponent. 

Input parameter: P address of 4 word table P+l, P+2 contain 

floating point number to convert 

Output parameters: P+l, P+2 contain octal fraction (lower 12 bits 

of each word) 
P+3 value of decimal exportent 



Used by: 
Routines used: 
Other externals: 
Language : 



Q8TRAN 

FLOT 

Q8EXPT (in Q8EXP9) 

1700 Assembly Language 
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(3ADFI0 Routine 

(2ADFI0 which is written in 1700 assembly language -i handles 
the disk I/O necessary for OPEN statement. This routine 
may be split into two separate parts. 

The first partn which has the entry point dADFINi is called 
by <2A(2INI to initialize the disk 1/0. 

(2ADFIN calling sequence: 

RTJ OfiDFIN 



where 



A contains the file number 

0. contains the flag word shifted 7 left 

This routine finds the corresponding file table entry t 
computes the starting sector number and places it in 
(2ADFAD -Cin (2'flCriPJ and returns with the logical unit in A 

The second parti which has the entry point (2ADFNFi 

is entered by a compiler generated call from the user^s 

program when executing an OPEN statement. 

(2ADFNF calling sequence: 

RTJ (36DFNF 

1. address of file number 

E- address of number of sectors per record 
3- address of number of records per file 
H- address of disk logical unit number 
5. address of starting sector number 

The disk file table starts in the low address of unused 
core and extends upwards- Three words are created for 
each file. The format is as follows: 

WORD 0: file number 

U0RD 1: logical unit number 

WORD 2: starting sector address -Cx> 

The following externals are declared in (2ADFI0: 



QfiERRfl 
flfiEREM 

a&aiui 

(2 AD FAD 
<2A(2ENS 



in (2AERRI1 
in (2AERRH 
in <2A(2INI 
in (3ACMP 
in (3ACMP 
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b.4.20 IFALT Routine 

This routine checks for a floating point error condition. 
The input parameter I may take on the following values: 

1=0 Check for overflow 

1 Check for divide fault 

2 Check for underflow 

The parameter I may return the following values: 

1=1 Condition occurred 

2 Condition did not occur 

This routinei which is written in 1700 Assembly Language! 
uses the contents of location $Cfi in checking for the 
above conditions. The routines FLOAT and DFL0T store 
their error condition information in this low core location 

/■"S There are no externals. 

b.4.21 Subroutine (2fiDXP^ 

This routine converts a binary integer and decimal 
exponent into a double precision -C3 word> floating point 
number- The integer is assumed to be greater than zero. 
Exponents may be positive! negative! or zero. 

Input parameters: P address of M word binary integer 

P contains the most significant 

4 bits 
P+l contains the next intermediate 

significant 12 bits right 

justified 
P+2 contains the next intermediate 

significant 12 bits right 

justified 
P+3 contains the least significant 

12 bits right justified 
PI address of decimal exponent 

Output parameters: P v contains the double precision 

P+l [point number -CO if underflow 
P+2 [has occurred >7FFFi SFFFFn 

-^ SFFFF if overflow has occurred. 
(^\ implies no error 

^-^ 1*0 implies error 
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Routines Used: DFLOT 

Used by: (26TRAN {FORTRAN object time conversion 

routine} 

Language: 17DQ Assembly Language 

_.H.22 Subroutine tffiDXPl 

This routine obtains a double precision floating point 
number and converts it to an intermediate form of a 
decimal integer and a decimal exponent. 

Input parameter: P address of _ word table 

P+l"\ contain the double precision 
P+2 r floating point number to be 
P+3 J converted 



Output parameter: P+l- 

P+2 
P+3 
P+M 



contain the intermediate binary 
fraction -CLower 12 bits of each 
' word> ^-^ 

-Conly the upper M bits of the (^J) 
lower 12 bits are used> 
P+S contains the decimal exponent 



Used by: tfflTRAN 

Routines Used: DFLOT 

Other Externals: <2fiDXPT and (26DXP2 -tin flflDXPW 

Language: 17DQ Assembly Language 



_.5 I/O Restrictions 



The number of logical units which may be used in one 
program is limited to 3D- This number is introduced 
to limit the number of cells necessary for storage 
of the unit history table. The unit history table must 
be available to give information on the EOF and IOCK 
requests. 
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6.5.1 



O 



o 



Each time a new logical unit is used in an I/O request, an entry 
will be made in the table. When use of more than 30 units is attempted, 
an error message will by typed. The transmission information on the 
I/O request is placed in the table upon completion of the request. 

Structure of Unit History Table Entry 



BIT 

15 

14 

13 

12 

11 

10 

9 

8-3 
2 

1-0 



Not used 

1 Formatted 

Unformatted 

1 Rewind 

Non rewind 

1 EOF Read 

No EOF Read 

1 Backspace 

Not backspace 

1 Read 

Not read 

1 Write 

Not write 

Not used 

1 Error occurred 

Error free request 

Not used 



6.6 ERROR MESSAGE 

6.6.1 General Discussion 

Error messages will be output on the standard comment medium. The 
message form will be one of the following three types: 



Type 1: 



Type 2: 



Type 3: 



N 

I/O RQST n 

ffff* 

N 

I/O RQST n 

ffff 

gggg 

N 

I/O RQST n 

XX 



c 



c 



c 
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1. N is an error number whidh corresponds to an error message. 

2. n is the I/O request statement number. 

3. ffff is the current value of the format statement pointer. 
This value is in decimal. 

4* gggg is the current value of the input field pointer. This 
value is in decimal. 

5. xx is the decimal unit number of an improperly used device. 

6.6.2 An Error in the FORMAT Statement 

MESSAGE: 1 

I/O RQST n 
ffff 

Illegal character in format statement 

Action: program termination 

6.6.3 Illegal Character in the Input Field 

MESSAGE: 2 

I/O RQST n 
ffff 



Action: program termination 

6.6.4 Input Data Exceeds Limits of 1700 Word 

MESSAGE: 3 

I/O RQST n 

ffff 

gggg 

Action: program termination 

6.6.5 Improper Use of Unit 

MESSAGE: N 

I/O RQST n 
unit number 
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Description of Improper Use 


Action 


M 


Attempt to read on a write unit 
or write on a read unit 


Program termination 


5 


Read or write request after an 
end of file has been written 
without first doing an EOF 
check. 


Program termination 


b 


Attempt to write an EOFr rewindr 
or backspace any unit other than 
a magnetic tape 


Program termination 


7 


Write attempted on magnetic tape 
with no write enable 


Type (cr) to continue 


a 


Attempt to use logical unit 
number greater than 30 


Program termination 


=1 


Backspace at load point 


Program termination 


10 


End of magnetic tape sensed 


Rewind tape. 

Type (c£) to continue 



b-b«7 Illegal Formatted Input 

More elements are given than are contained in an input 
record. 

MESSAGE: IE 

I/O R(3ST n 

ffff 
Action: program termination 

b-b.fi II legal L i st 

A list is given but there are no conversion codes in the for- 
mat statement. 

MESSAGE: 13 

I/O R(3ST n 

ffff 
Action: program termination 
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b-fci.T File defined twice 

More than one OPEN request given for the same f i le. 

MESSAGE: 1M 

T/0 R(3ST n 
f i le number 

ACTION: Program is terminated. 
b-b-10 Parameter negative or zero 

One of the parameters in an OPEN statement is negative or 
zero. 

MESSAGE: IS 

I/O RflST n 
file number 

ACTTON: Program is terminated 

b>b-ll Sector address too large 

Q ). The starting sector address Dr ending address exceeds 

MESSAGE: lb 

I/O RQST n 
file number 

ACTTON: Program is terminated 

b-b-12 File not defined 

A READ or WRITE request was given for a file which was 
not defined by an OPEN statement. 

MESSAGE: 17 

I/O RflST n 
file number 

ACTION: Program is terminated 

b-b-13 Logical unit not a mass storage device 

MESSAGE: Ifi 

I/O RQST n 
file number 

^-~ ACTION: Program is terminated 
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b.b.m Record number in READ on URITF request incorrect. Re- 

sulting sector address is out of the range of the file 
or is zero. 

riESSAGE: IT 

I/O RflST n 
f i le number 

ACTION: Program is terminated 
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6.7 
6.7.1 



RECORDS 

Binary READ-WRITE Statements 

A binary write produces a logical record which may be composed of 
any number of physical records. 

A READ (u) statement spaces the tape one logical record. 

A WRITE (u) statement is illegal. 

The first word will be interpreted as a control word and does not 
represent data. A WRITE (u)L will produce on paper tape a logical 
record as follows: 



1st word 
2nd word 

last word 
1st word 
2nd word 

last word 
1st word 
2nd word 

last word 




Header word 
(one's complement of block size) 



checksum 



Header word 
(one's complement of block size) 




checksum 



Header word 
(one's complement of block size) 



yjffiw//!////, 




checksum 



86 word physical recor 



86 word physical recor 



86 word physical recor 



The mode is binary. The checksum when added to the sum of all the 
data words and the header word will result in zero; Overflow is 
ignored in the computation of the checksum. 
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A READ -Cu>L will read one logical record with the above for- 
mat. The header word and checksum are not read into the 
buffer. 

A WRITE -Cul will produce on magnetic tape a logical record 
which has the same form as the paper tape record except 
a record gap replaces the checksum and header word. 

Formatted READ-WRITE Statements 

All formatted read-write statements produce a record of bO 
or less wordsi 2 ASCII characters per word- Attempts to 
read more than bO words -C12D characters} in a record result 
in an error message and program termination. Attempts to 
write more than bfl words -C 13b characters} in a record re- 
sults in truncation of the record at the 13bth character. 
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DATE 
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DATE 
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4. Bit 1 on for read 

unit; bit 2 on for write 
unit; bit 3 on for read 
or write. 

Flag word bit 9 on 
means write request* 

6. Flag word bit 10 on 
means read request* 

7. Flag word bit 14 on 
means format request* 

FSAD can contain the 
address of the format 
statement direct, in- 
direct or relative. 

A negative address 
means this address 
is relative to the 
given address* 
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Exit request 
to 

System 




Jump to INITA 



INITA 



Q8CMP0 



Initialize 
v the I/O sub- 
routine 



INITB 



Q8INTB 



\ 



Initialize 
the buffer 
\ subroutine 



FORM 




REM 



FSAD = Format 

statement 

address 



Add this adr. 
to (Q8QINI) & 
mask off the 
sign. Store iji 
'- FSAD. 
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10. Flag word bit 12 off 
means this is the 
address of the format 
statement address. 

11. A negative address 
means this address 
is relative to the 
given address. 

WX. ~n*\i \ao* lollops 




RED# 



CALFRM 




Set Read/Writ(i 
switch for IFltMAT 
for read, 1 
for write (ROW) 



IGP 



'Initialize 
V FGETC, FPUTC 
kWith forma 
iLamwtmL n d 



Set list/no 
list switch for 
IFRMAT. for no 
list/not fo{ list. 
(I AN TQ 




Add this adr 
to (Q8QINI) & 
mask off the 
sign. 



Q8IFRM 



'Format 
routine 



Store in FSAD 
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12. Bit 11 is on if an end 
of file was sensed by 
the magnetic tape status 
check. 

13. LONL non-zero means 
this request has a 
list. Flag word bit 
11 means list. 

14. Bit 12 in the unit 
history table is 
used to flag end of 
file status on the de- 
vice. 

15. A formatted write 
request without list 
is a fatal error. Error 
message 11 is typed out. 
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Q8QT0M 
initialize 
transmission; 
routine 




STATUS 



Obtain mag. 
tape hardware 
status 



EOF 



14 



08QUN2 



Turn on bit 
J2 in unit 
listory table 



/OWM 




Terminate 
jio list re- 
quest 



OUT 



Restore Q, I 
registers 



RETURN 
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1. Q8SKIP Is an entry point, 
in Q8QINI but is an inde- 
pendent subroutine called 
by the format routines to 
skip to the next record. 
It is called whenever a 
slash occurs in the for- 
mat statement or deamed 
necessary by the format 
routines. 
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1. If the history table 
entry for this unit 
has bit 12 on, an end' 
of-file is indicated. 
All transmission is 
ignored . 

2. A negative address 
means this address 
is relative to the 
given address. 

3. Flag word bit 14 on 
means format request. 



Q8QTOM 




Save Flag. 
Store Read/ 
Write Switch 



Q8QZ 



_E 



RQST 



Service 
Transmission/ 
Request 



EXITX 



J£ 



RETURN 



Restore Q, I 



Q8QX 



RETURN 
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ILLs « < w ) 



Q8QUNI 
Fetch 
Unit 
History 




Add to (Q8QX) 

and Maak Off 

Sign 



RQST 



Transfer 

Element 
Address to Q 
& Save in ADR 




Q8IFRM 



Implement 
Transmission 
of Format 
Request 



RETURN 



Q3BINB 
. Implement 
' Transmission 
of Binary 
Request 
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1. Flag word bit 9 on 
means write. 
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2. Q8MOVE is an entry 
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CHECK 

'Check for 
v legal unit 
•Cl-301 




CHECK 



Load A with 
History tab 
entry for 
unit 



X 



(2fl(2UN3 



Save I and 
registers • 
Save unit in 
I for table 
index! 



Logically op 
statusbits 
into histor^ 
table entry 



Restore I 



f RETURN J 




CHECK 



Check for 
t legal unit 
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Store A reg 
into histor 
table entry 



RETURN 
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1. Flag word bit 14 on 
means formatted I/O. 

2. Flag word bit 10 on 
means read request. 

3. Magnetic tape trans- 
fers must be at least 
9 words in length due 
to hardware constraints. 



Q8CMP0 



Save flag & 
unit. Clear 
COUNT & TFLG 



($F4) 
Obtain equip- 
raent type 



ETYPE = 

equipment 

type 



<^ format "]> 
^r^quest/^ 
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Set bit 12 of 
I/O request 
for ASCII 






Set write 
request for 
I/O 



RETURN 
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Save ENDFLG 
& transfer 
to Q. 



Q8BEGB 



)C]T= 
beginning lot 
vof I/O buff/r 



Q8L0CB 



Jbtain 
irrent location 
f I/O buff/r 



NR1 = current 
location - 
LOCl+1. Trans 
fer to Q 



NR1 



RED, 



Set read 
request for 
I/O 




I 

it 






o> 
oo 

Ll 

o 



o 

00 u 

C a 

5 






DSDD 



m 



u 



b-ME 



4. ENDFLG indicates entry 
from Q8QEND if non- 
zero. 

5. Composite status consist 
of bits 9-10 of the flag 
word for read /write and 
bits 13-14-15 of the I/O 
request status. 
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'Implement 
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9. 



10. 



Flag word bit 14 on 
means format request. 



All binary I/O requests 
are in logical records 
of 86 words each. 

The first word of each 
86 word record is zero 
for all records except 
the last which contains 
the number of physical 
records per logical 
record (COUNT). 

Clear 1st word of 
binary physical 
record. 

1st word zero means 
more physical records to 
follow. Q8QEND requires 
input of all physical 
records until entire 
logical record has 
been read. 




Increase phy- 
sical record 
count by 1 
(COUNT) 




Clear A 
register 




(form) 



Store A register 
in (LOCI) 
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Implement 
,1/0 request 
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sical record 
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NR1 = number 
of words per 
record 
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11. Q8QEND means terminate 
the write request. For 
binary this means the 
physical record count is 
stored in the first word 
of this, the last, record. 
For format, output the 
record. 



MSNdN 



COUNT into 
the A 
register 
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Store COUNT 
into (LOCI) 



RORW 



Write the 
last record 
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READ 



flfiCLRB 



'Clear the 
buffer 



WRITE 
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mplement 
write through 
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Clear the 
buffer 
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dflRINT 



Reset bufft 
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1. LOC+II is the current 
location of the input/ 
output buffer. 
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Q8INTB 
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Q8L0CB 



Store flag. 
Clear SAVQ, II 
CC, RWF. Ini- 
tialize buffer 




LOC+II 

in A register , 

Q = CC. 



LNGTH = 86 
(Physical 
record size 
for binary) 



RETURN 
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LNGTH = 60 
(record size 
for ASCII) 



CLRBUF 



/ Background 
\ buffer 




II = LNGTH 
Clear A. 
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Read recor< 
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RETURN 
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SAMPLE CODE □ 
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DOCUMENT TMr 
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B, An FF 16 will be 
encountered when 
a read was termina- 
ted at an odd num- 
bered character. 
The I/O drivers 
fill the word with 

FF 16- 
'*» RWF flags more than 
120 characters 
transferred. On a 
write request 
truncation occurs 
at 13b characters. 



Q8RWBU 



Save Q, I 
registers. 
AIBUF = address 
of character 




WRIT 





RWX 



II = CC/2 
(buffer index] 



READ 



II = CC/2 
(buffer inde>|) 




Right- justify 
the buffer 
indexed charac 



ter 




Mask off the 
left 8 bits 
in the indexed 
buffer word 



Or in the 
character & 
store back in 
the indexed 
buffe r^ wo rd — 



Mask off all 
but right-most 
8 bits 



BUMP 



Set character 
to ASCII 
blank 



RIGHT 



Mask off the 
right 8 bits 
in the indexed 
buffer word 



CC = CC+1 
^ (character 
counter) 




RWX 



Restore Q,I 
registers 
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When the binary buffer 
is full n the I/O 
request is imple- 
mented. A physical 
record is read or 
written- 
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Set RUF 
non-zero 



I Rid 



ADR = addresis 
of element. 

2 register = 

Duffer index 




Store element 
in indexed 
buffer word 



Store indexed 
buffer wore 
in element 



EXIT 



flfl EREn 



Error msg 

IE 



SAVfl = 
SAV<2 + 1 

II = II +1 
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:xit to Uti 
^System re 
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1. A negative address 
means this address 
is relative to the 
given address* 

2. Loading the Q reg- 
ister with CC and 
shifting right one 
place has the effect 
of loading Q with 
the format state- 
ment word index 
and leaving a 
pointer to the 
right character. 
CC, the character 
counter, is odd 
for right char- 
acters, even for 
left characters. 



SAVCC 




GR = CC-1 
(Save char act 
counter-1) 
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RESR 



MLL 



Return with 
address in 
register 
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Return with> 
address in 
register 



Restore Q,I 
registers. 
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RETURN 



Store address 
of format 
statement 
char, in ADR 



Load repeat 
flag 




REPCC. 



RELA 



Return with 
.address in 
,A register 



CC = GR 
(Restore char 
counter) 



CC/2 in 
Q and A 
registers 
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Mask off al 
but right- 
most A bits 
from format 
statement 



f 



Store in 

character 

address 



CC = CC + 1 



Exit] 
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Save (2i I 
^registers 
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Right-justi 
format stati 
ment 
character 




ADR = char 
address + 
-CFPUTO 



CC/S in a 
and A 
registers 




PLEFT 



CHAR = 
left- 
justified 
character 



CHAR = -CADR 
Mask off for 1 
mat statemer 
right & bit 



PUT 



Mask off 
left fl bits 
of format 
statement 



OR in chara- 
cter and store 
back in format 
statement 
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LORL is a flag; 
1 for right half 
store; for left 
half store. 

3. $30 is ASCII zero. 



1. 



2. 



Enter with I/O request 
number in A and / 
unit number in Q. ( 



ERRMSG 



X 



TEMP = unit 
number 



CNVT 



Convert I/O 
request number 
to decimal 
Vscili 




CNVT 



jonvert unit 
lumber to dec- 
imal ASCII 



A,Q,I > 

UNIT,UNIT+1, 
UNIT+2 



RETURN 
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BINARY = bin- 
ary number 
TEMP3=$2000 
RORL = 1 



I = -5 
COUNT = 
CNTR = 




TEMP 1+2 
TEMPI 
TEMP 1+1 



COUNT = 
BINARY/ 10 
i = 1, 5 



RETURN 



BINARY = 
remainder 
1 = 1 + 1 





SLEFT 



RORL = 1 
TEMP 3 = COUNT 
+$30C(shifted 
to left half) 



smcm. 



■} 



RORL = 
TEMPI, CNTR 
= C0UNT+$30 
+TEMP3 
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4. FERMSG is entered 
from the format 
package which is 
coded in FORTRAN. 
The flag, ENTER, 
is set non-zero 
to indicate FERMSG 
was entered. 

5. A negative add- 
ress means this 
address is rela- 
tive to the given 
address. 

6. ERRMSG is entered 
from the 1700 
machine language 
routines of the 
I/O package. 

7. ETYP1 is the error 
types 1, 12, 13. 

8. ETYP2 is the error 
format for error 
types 2 and 3. 




Q8EREM 



NUM = error 
type (1-13) 

ENTER = 



COMMON 



Add this adr. 
to (FERMSG) 
and mask off 
the sign 



LOG = address 
Bump FERMSG 
for return 



NUM = error 
type (1-13) 





Save Q,I. 

Q register 

= NUM 



TM1 



'Type I/O 
request 
number 



IFQRM 




TMO 



Type error 
number 



TM1 



Type I/O re- 
quest number/ 



TFORM 



Type format 
statement ch< 
icter numbei 




TIFLD 



Type input 
string char- 
icter no. 




EX I] 



Type format 
statement 
vchar . no . 
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9. ETYP3 is the 

error format for 
error types 4, 5, 
6, 7, 8, 9, 10, 
and 11. 




Type 

error 

number 



TM1 



Type I/O 
request 
number 



JIM2- 



Type I/O 
unit 
number 




TM1 



RQST 



Type out 9 
words from 
MSG1 



WAIT 



Wait for 
type out 
complete 



RETURN 
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Convert errc 
number to 
dec. ASCII 
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A,Q,I ~? 
NUM,NUM+1 
NUM+2 



L EQSX. 

/ Type out 3 
\ words from 



NUM 



WAIT 




RETURN 
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RQST 



WAIT 



Fetch format 
statement 
char, counter 



TMO 



Type out for* 
lat statement 
char, counter 



Wait for 
type out 
complete 



Type out 3 

words from 

UNIT 



Wait for 
type out 
complet< 






RETURN 
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'Fetch input 
string char- 
tcter count* 



TMO 



'Type out 
input string 
char, counter 



RETURN 
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LO. CMPL is the com- 
pletion address 
entry point from 
the System 
request- 



RQST 



\EXIT/ 



Clear 

completion 
flag (FLG) 



Restore 
Q and I 
registers 



($F4) 



Type out 




RETURN 
(EREMSG) 



RETURN 




RETURN 
(FERMSG 
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FLG = 1 
(Set comple- 
tion flag) 



($F4) 
Exit requesl 
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3. 
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6. 



7. 



If no magnetic 
tape operation has 
occurred, a do- 
nothing request 
must be executed 
to obtain magnetic 
tape status* 

Bit 9 of the 

flag word set means 

a write request. 

Bit 15 of hard- 
ware status word 
set roear.i- write 
is enabled. 



Q8MAGT 




FLG = Flag wojrc 
MU1 = unit 
MU2 = unit 



No write enable 
results in type- 
out of error 
message 7. 

Bit 9 of hardware 
status word set 
means end of 
tape. 

End of tape re- 
sults in type- 
out of error ( C 
message 10. 

Wait for opera- 
tor to mount a 
new tape. 



Save Format 
status bit 
in A (bit 14) 
Q = unit 



Q8QUN2 



Set request 
type in unit, 
history tb/. 
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(S F4) 



Status 
request 



STAFLG = hard 
ware status 




($F4) 



Execute do- 
nothing mag 
tape req. 





Q8EREM 



ERROR 
message 7 





RETURN 



RETURN 



1st time flag 
* 0. 
FNSH = 0. 



smsm. 



Error 
message/^ 1 / 
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1. This routine is called from Q8QINI 
and Q8QX. The calling sequence to 
this routine has two parameters. 
They are: 

IENTY - if routine called 

from Q8QINI 
IENTY - 1 if routine called 

from Q8QX. 

2. Call format scanner. This rou- 
tine interprets FORMAT state- 
ment parameters and sets them 
up in a form that the trans- 
mission routine can use. 

3. Call transmission routine. This 
routine converts the next I/O 
field according to the format 
specifications. 



1. 



I Q8IFRM J 




— >IRG, 
IRF, IBCT, 
ISWR, IANL 



Q8TRAN 



RETURN 
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RETURN 
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TITLE 
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ISSUE 
DATE 
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1. This routine is called from Q8IFRM 
and Q8TRAN. Its function is to 
interpret the FORMAT statement and 
put subfield parameters into boxes 
accessible by the transmit routine 
Q8TRAN. The parameters passed are 
as follows: 

IFW = field width 
IND = no. decimal places 
ITYPE = type of conversion 
IRF = field repeat count 
IRG = grout repeat count 
IBCT = bracket count 
ISWR =1/0 switch 
ILIST.= FORMAT statement 

accompanied by I/O list 
IANYL = switch to denote existance 
of some conversion speci- 
fication. 

2. Gets next character from read 
buffer or puts next character 
in output buffer. Its 3 para- 
meters are: 

13 = next character loc. 

14 = save char, position/ or No. 

15 = reposition/or no 

3. Routine initiates I/O. 




Yes 




IFW1 — » IFW 
IND1 -> IND 
IFSEP = 1 



o — * isflgT 

ITYPE, IND, 
IXH 



RETURN 
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ISW2, IFW1 
IND1 




CONTROL DATACORPORATION 
SOFTWARE DOCUMENT 

SAMPLE CODE Q 

FLOWCHART g] 

DECISION TABLE □ 

OTHER [ | 



/ 



DOCUMENT 
CLASS 



DOCUMENT 
TITLE 



14^. 



MACH 
TYPE 



Z^2 



n 



Q8FS 



ISSUE 
DATE 



DRAWN BY 



PACE 2 6QF 8 9 
DATE, v ~/~'/ 



i i 'wmw i SIS S^— Awofeae 



PROJECT NO. 
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TITLE 
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ISSUE 
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PROJECT NAME 
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4. Error 1 - Invalid character 
in FORMAT statement. 
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13 = 


14 = 2 


15 = 


V 2 



Q8FGET 
(13,14,15) 
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ITYPE - o 
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DOCUMENT TMC 
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5. Error 13 - I/O list with READ, 
WRITE statement but no con- 
version specification in 
FORMAT statement. 
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If non-zero-, symbol is a dummy 
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When ICLASS is It entry contains the 
dimensionality of the array -Cif undi- 
mensioned = D> • The actual dimen- 
sions are in the ISTAB table. The 
index to this table for this array i: 
in the ISTABX table. 
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ICOM is the index to the ICOMT entry 
for the COMMON variable. If zero, 
this entry is not in COMMON. 



IEQVX is the IEQV table index for this 
equivalenced entry. Used in generating 
definition points and for storage allo- 
cation. 
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The SYMTAB index to a thread of the 
variables and arrays in a COMMON 
block. The first array of the thread 
is ICOMBX in the table ICOMT. ICOMTX 
is the SYMTAB index to the array 
declared prior to this array, 



I EXT 


ff 


*+*j °s % * 


If non-zero, this symbol appears in 
an EXTERNAL statement. 


ISNGL 


ff 


fi,3 


If non-zero, this symbol appears in 
a SINGLE statement. 


1REL 


ff 


^A c y J> y B 


If non-zero, this symbol appears in 
a RELATIVE statement. 


INDUCV 


ft 


n 


Non-zero if variable is currently an 
indunction variable. 
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DESCRIPTION AND USE 



IARGNO 



AiB 



Number of arguments in function call. 



ISFARG 



AiB 



Set for statement function argument 



KELSIZ 



AiB 



AnB 



If ICLASS is li the element size 
minus one . 



ITILF 



If ICLASS is 3t is the index to the 
in-line functions table. 



O 



O 



Note 1: Double precision constants are 3 words long and are 
stored in the symbol table as follows: 



Double Precision Constant 
IS D 



Symbol,.. Xable Entry 
IS-— S M 3-D 



Uord A 




B 




C 


o ; 



is m 



Uorid 1 




\<? 




2 


< 


3 


C 


H 


A 


5 


B 



ISYM-1 

ISYN 

ISYH+1 



C = High order bit of word 3 which must be preserved in 
the high order bit of IPART. 
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7. E 
7.2-1 



Loop Structure Table -CLoopt} 
Loop Structure Table Format 



U0RD1 
WORD 2 
WORD .3 
WORD M 
UORD S 



IS 





LINDUC 


IS 





LBEG 


IS 





LINC 


IS 





LtND 


is m 





LI-D LLABEL 





7.2-2 LOOP Structure Table -CLOOPTJ 

The loop structure table is ava i lable in pass A- A 
BEGIN DO entry is entered in it when Pass A encounters 
a DO statement. An END DO entry is entered upon 
encountering a label which terminates the loop. LOOPT 
allows room for 30 loops. » The L00PT index is L00PTX- 

BEGIN DO ENTRY 



ITEM 


NO 


. BITS 


LINDUC 




15 


LBEG 




IS 


LINC 




.is' 


LID 




1 


LLABEL 




m 



DESCRIPTION AND USE 



The SYMTAB index to the induction 
variable. 

The SYMTAB index to the initial value 

The SYMTAB index to the increment. 

£0 decrementing loop 

The SYMTAB index to label entry for 
terminating statemet. 
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7.3 



FORTRAN Internal Code 



O 



Digits 

Letters 

Dollar sign 

Period 

Plus sign 

Minus sign 

Equal sign 

Left parenthesis 

Right parenthesis 

Comma 

Slash 

Asterisk 

Blank 

End of statement 

Single quote 



CHARACTER CODE {Decimal} 

Q-" .....; D-T 

A-Z 1D-35 

£ 3b 

37 

+ 3fi 

- 3 C 1 

= 4D 

•c m 

> 42 

n 43 

/ . . . ^ 

* 45 

A . 4b 

A ..... - 47 

» 4fl 



7.4 



7.4.1 



All other characters should be translated to blank and an 
appropriate message output. 

Other Tables 

Specification Table -CISTAB} 

The current index for this table is ISTAB2. The maximum 
table size -Cto be compared against ISTAB2* is ISTABS and 
is 1SD. The entries are pointers to integer constants 
which arQ dimensions. For a given symboln its SYMTAB 
entry is used to compute the entry in ISTABX table 
•CISYnX/-C2*ISYriFL>+l> which gives the index to ISTAB of 
the first dimension. The SYMTAB entry IDIM gives the 
dimensionality. 



C 
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^J. 



7-.H.S 



Table of Symbol Table Presets -CISET> 



Entry 



Pointer To 



1 
E 
3 
M 
5 
b 
7 

a 

<=) 

ID 

11 

IE 

13 

m 

IS 

lb 

17 

i fi- 
ll 

ED 
El 
SE 
S3 
EH 
S5 
Sb 



constant 
constant 
Subnout i 
Subrout i 
Subnout i 
constant 
Subrout i 
Subrout i 
Subrout i 
Subrout i 
Subrout i 
Subrout i 
Subrout i 
Subrout i 
Subrout i 
Subnout i 
Subnout i 
Subnout i 
Subnout i 
. Van iable 
^Vaniable 
Van iable 
Subnout i 
Subnout i 
Subnout i 
Subnout i 



1 

1.0 
ne (3fl(3FLT 
ne (3fl(3FIX 
ne FLOT 

D 
ne 0fi(3FEF 
ne (36<3FEI 
ne (3fl<3I£F 
ne <3fiSTP 
ne (3ASTPN 
ne (3SPSE 
ne OflPSEN 
ne OfiPKUP 
ne (3APREP 
ne <3fl(2FLE 
ne (3fl<3bJND 
ne Q&QBCK 
ne <2fiflINI 

(36(3X1 

(3fi(3XE 

(36(3X3 
ne (3fl(3X 
ne <3fl(3END 
ne (36DFNF 
ne <3fl(3Y 



O 



o 
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7.5 OUTPUT FORMAT, PhHjf- ft 

7.5.1 Statement Format of fflfftf ff Output Files 

The first four words are the same for all statements. Word 1 
contains the number of words in this entry. This is zero for the 
first entry of the file. Word 2 is the generated statement number, 
Word three is the type number of the statement. Word 4 is a 
switch used to signal the generated statement or statements which 
comprise the second half of a logical IF. The file is terminated 
by an END card entry. 

Statements with statement labels will have a negative statement 
number (its absolute value being sequential in the file). Word 5 
will then be the SYMTAB index to the label. 

The remaining words in each entry are described below. Statement 
labels, variables, and arrays are represented by their SYMTAB 
indices. 



ASSEM 



parameter., parameter ^, ..., parameter n 



BLOCK DATA no additional file entries 



SUBROUTINE and SYMTAB pointer to SUBROUTINE name (in complemented 

SYMTAB to FUNCTION (if applicable) f( 
SYMTAB pointer to formal parameter 1 



FUNCTION SYMTAB fco FUNCTI0N (lf appllcab i e) fo™) 



SYMTAB pointer to formal parameter n 

DATA pointer to entry to be set 

value 
pointer 
va lue 



FORMAT - contains the part of the FORMAT STATEMENT beginning with 
the first left parenthesis and ending with the last right paren- 
thesis. This is represented in internal code, two characters per 
word. 

REPLACEMENT tree 1 
tree 2 

where tree, is the tree of the variable to be stored into 
tree« is the tree of the arithmetic expression 
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STATEMENT FUNCTION 



SYMTAB pointer to statement function 
name 

SYMTAB pointer to formal parameter 1 



ASSIGN I to n 

CALL 
RETURN 

Unconditional GO TO 
COMPUTED GO TO 



SYMTAB pointer to formal parameter n 
tree 

I SYMTAB pointer to ASSIGN variable 

n SYMTAB pointer to entry assigned 

tree 

no additional file entries 

SYMTAB pointer to label 

SYMTAB pointer to label 1 



Assigned GO TO 

CONTINUE 

STOP 

STOP n 

PAUSE 

PAUSE n 

END FILE n 

REWIND n 

BACKSPACE n 

END 



SYMTAB pointer to label n tree 

var iab 1 e 

no additional file entries 

no additional file entries 

SYMTAB pointer to n 

no additional file entries 

SYMTAB pointer to n 

translated to CALL <3flflFLE-[N} 

CALL 0fi(3UND-CN> 

CALL <3flOBCK-£N> 

no additional file entry needed 

If END is not directly preceded by 
STOP or RETURN, a STOP or RETURN 
statement is generated before. END. 
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BEGIN DO 

END DO 
ARITHMETIC IF 



SYMTAB indices for index variabler 
initial increment and final valuesr 
termination label 

Index to LOOPT END DO 

SYMTAB index to label 1 

SYMTAB index to labei 2 

SYMTAB index to labe;I 3 

tree 



Q, 



a 
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LOGICAL IF 



tree 



7.5.2 



Statement Types 

TYPE 

D 
1 
2 
3 
M 
S 

7 

a 

ID 

ii 

12 
13 

m 
is 
lb 

17 

Ifi 
y°i 

2D 
21 
22 
23 
2»4 
25 
2b 
27 
2fl 
2T 
3D 
31 
32 
33 
3M 
35 
3b 
37 
3fl 
3T 
MO 

m 

^2 



STATEMENT NAME 

DIMENSION 

COMMON 

INTEGER 

REAL 

INTEGER FUNCTION 

REAL FUNCTION 

PROGRAM 

SINGLE 

BYTE 

SIGNED BYTE 

EXTERNAL 

RELATIVE 

EQUIVALENCE 

BLOCK DATA 

FUNCTION 

SUBROUTINE 

DATA 

FORMAT 

Replacement Statement 

Statement Function 

ASSIGN 

CALL 

RETURN 

UNUSED 

GO TO {Unconditional} 

GO TO {Computed} 

GO TO {Assigned} 

CONTINUE 

STOP 

STOP n 

PAUSE 

PAUSE n 

END 

ENDFILE 

REWIND 

BACKSPACE 

READ {Unformatted} 

READ {Formatted} 

WRITE {Unformatted} 

WRITE {Formatted} 

BEGIN DO 

END DO 

Arithmetic IF 



O 



c 
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7.5-3 
7-5-3.1 



O 



o 



TYPE 

43 
MM 
M5 
Mb 
M7 

ARITHMETIC. TREE 



STATEMENT NAME 

Logical IF 

ASSEfl 

OPEN 

DOUBLE PRECISION 

DOUBLE PRECISION FUNCTIOi 



General Form of Arithmetic Tree 

WORD 1 Tree Indicator -C-l> 

WORD 2 No. words in expression {from WORD M to end} 

UORD 3 Mode of expression -C0=?n l=integer-i 2=reali 3=double> 

WORD M Operator {see list} 

UORD 5 {assuming operator takes only one word* No- Operands 

WORD b UORD b-Kword 53—1 operand pointers -Cbase operator 

this level} 

WORD {NEXT} operand normal/operand iwerse^-CQ-aO^Q} 

WORD {NEXT}*1} operand -Csee list} 

NOTE: each operand {operator} except the first is preceded 
by a normal/inverse indicator 



Example 



I+R*D 



UORD 


1 


-1 


UORD 


2 


1M 


UORD 


3 


3 


UORD 


M 


11 


UORD 


5 


3 


UORD 


b 


5 


UORD 


7 


fi 


UORD 


a 


11 


UORD 


«=) 


D 


UORD 


ID 


2M 


UORD 


n 


D 


UORD 


12 


D 


UORD 


13 


2M 


UORD 


1M 


R 


UORD 


IS 





UORD 


lb 


2M 


UORD 


17 

5 


I 


b-KOPERAND 


POINTER},,. 






il}operand 



= 11 
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■C2>operand 



a 

b+-COPERAND POINTER} 



= 1M 

b + {OPERAND P0INTER> {3>opepand 
= 17 

Types 22 - 2"4n 2 t U 3Mn 35 are two word entries 

WORD 1 operand type 

UORD 2 symbol table pointer 

Types lfi - 21 take two words to express type 

WORD 1 operand type 

WORD 2 symbol table pointer 

UORD 3 no. operands etc 

Types 25 - 3D are of the following form 

UORD 1 25-, 3D ^ 

UORD 2 symbol table pointer 

UORD 3 2>4i 2T for subscript variable 

UORD M symbol table pointer 

Types 2b and 31 are of the following form 

UORD 1 2t, T 31 

UORD 2 symbol table pointer 

UORD 3 symbol table pointer for constant subscript 

Types 27 and 32 are of the following form 

UORD 1 27-, 32 

UORD 2 symbol table pointer 

UORD 3 symbol table pointer for constant portion 

UORD M 2Ht 2T for subscript variable 

UORD 5 symbol table pointer for subscript variable 
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Types 28 and 33 are of the following form 

WORD 1 23,33 

WORD 2 symbol table pointer 

WORD 3 symbol table pointer for constant portion 

WORD 4 operator (+ or *) 

WORD 5+ff no. operands, pointers, operands 

7.5.3.2 Operand Types (Operators are Also Operands) 

1. COMMA - does not appear in File 2 

2. AND 

3. OR 

4. NOT - does not appear in 

5. LT 

6. GT 

7. LE 

8. GE 

9. EQ 
10. NE 
11 + 

12. - does not appear in File 2 - represented by inverse .+ 

13. * 

14. / does not appear in File 2 - represented by inverse * 

15. ** 

16. ( does not appear in File 2 

17. ) does not appear in File 2 

18. function 

19. unused 

20. subroutine 

21. unused 

22. function with no argument 

23. subroutine v/ith no argument 

24. non- subscripted variable 

25. variable only subscripted variable 

26. increment only subscripted variable 

27. variable and increment subscripted variable 

28. complex subscripted variable 

29. non- subscripted partial variable 

30. variable only subscripted partial variable 

31. increment only subscripted partial variable 

32. variable and increment subscripted variable 

33. complex subscripted partial variable 

34. Hollerith constant 

35. numeric constant 

36. calling sequence label 

37. material constant 
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Mass Storage Fortran 3.1A Loader Maps 
Phase Al 



7.b.l.? 



FTN 

GOA 

CNVT 

CONV 

DIAG 

DXPT 

DFLOT 

DUMVOL 

GETSYM 

GPUT 

IOPRBA 

PACK 

dflPRMS 

STORE 

SYMBOL 

SAVEID 

L0CLA1 

DUMYA1 

STCHAR 

GETC 

ENDDO 

GETF 

GNST 

IGETCF 

OPTION 

OUTENT 

PHASEA 

PLABEL 

<2fi(2BDS 

RDLABL 

TYPE 

ENDLOC 

Phase A2 

FTN 

GOA 

CNVT 

CONV 

DIAG 

DXPT 

DFLOT 

DUMVOL 

GETSYM 

GPUT 



3Eb3 
4515 
4S7L. 
4SBB 
45EE 
4fc,fib 
47AF 
4 C 1EA 
4A1A 
4A53 
4A7C 
4CDB 
4D00 
4D1A 
4DL.0 
4E21 
4ECb 
4F75 
4FDC 
SOOE 
5027 
S12C 
5472 
Sb4E 
St.t.7 
5bD5 
S70T 
5C31 
SCfi7 
SCA7 
SD2S 
5F52 



3Eb3 
4515 
457b 
45BB 
45EE 
4bflb 
47AF 
4^EA 
4A1A 
4A53 



O 



o 
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o 



u 



I0PRBA MA7C 

PACK LICDB 

(3flP^ns m>oo 

STORE m>lA 

SYMBOL m>bD 

SAVEID ME21 

L0CLA2 MECb 

DUMYA2 l 4F7fl 

ARITH HFflS 

COMNPR SSFE 

GETC SbTA 

GETF 5bB3 

DIMPR S^FT 

SUBSCR SBA7 

TYPEPR SELC 

ENDLOC SEA3 



7.t.l-3- Phase A3 



FTN 3EL.3 

GOA M515 

CNVT "4S7L, 

CONV fSBB 

DIAG "45EE 

dxpt ma at 

DFLOT M7AF 

DUMVOL M^EA 

GETSYM 14AIA 

GPUT *4AS3 

IOPRBA 'i»A7C 

PACK ^DB 

(3flPRnS MDOO 

STORE m)lA 

SYMBOL m>b0 

SAVEID ME21 

L0CLA3 »4ECb 

DUMYA3 14F7B 

BYE(3PR MF35 

CHECKF S17C 

CONSUB S21F 

DATAPR 52Ab 

OUTENT 5777 

FGETC S7AB 

FORK SflbF 

GETC SAOI 

GETF SA22 

STCHAR SDbfl 

?REE SD^A 

ENDLOC b2B1 
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Phase AM 



FTN 

GOA 

CNVT 

CONV 

DIAG 

DXPT 

DFLOT 

DUflVOL 

GETSYM 

GPUT 

IOPRBA 

PACK 

daPRMS 

STORE 

SYMBOL 

SAVEID 

LOCLAM 

DUI1YA4 

ARAYSZ 

ASGNPR 

BDOPR 

CFIVOC 

CKIVC 

CKNAME 

CPLOOP 

ENDDO 

GETC 

GETF 

IOSPR 

OUTENT 

RDLABL 

STCHAR 

ENDLOC 



3Eb3 
MS1S 
M57b 
MSBB 
M5EE 
Mbflb 
M7AF 
M1EA 
MA1A 
MA53 
MA7C 
MCDB 

mdoo 

MD1A 
MDbO 
ME 21 
MECb 
MF7fi 
MF7F 
5001 
S0M7 
51flM 
51E3 
51F3 
5203 
S2B0 
53BS 
S3CE 
571M 
5DE7 
5E1B 
SEBT 
SEEB 



7.b.l.5 



Phase A5 



FTN 

GOA 

CNVT 

CONV 

DIAG 

DXPT 

DFLOT 

DUMVOL 

GETSYM 

GPUT 

IOPRBA 



3EL.3 
MS1S 
M57L. 
MSBB 
MSEE 
Mbflb 
M7AF 
H^EA 
MA1A 
MA53 
MA7C 



c 



CA J 39-1 REV 10-67 



CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER 



DIVISION 



o 



DOCUMENT CLASS 
PRODUCT NAME 



ins 



1700 MASS STORAGE FORTRAN 



PAGE NO.. 



7-1=1 



PRODUCT MnnFi un CQ05*3.1 A/B 



MACHINE SERIES 



17DD 



o 





PACK 


4CDB 




(3APRMS 


4DDD 




STORE 


4D1A 




SYMBOL 


MDbD 




SAVEID 


4E21 




LOCLAS 


MECb 




DUMYA5 


4F7S 




ARITH 


4FA2 




GETC 


SSFC 




GETF 


SblS 




SUBSCR 


5=158 




ENDLOC 


5C20 


7 • b » 1 • b 


Phase At 






FTN 


3Eb3 




GOA 


4515 




CNVT 


MS7b 




CONV 


45BB 




DIAG 


4SEE 




DXPT 


Mbflb 




DFLOT 


47AF 




DUIWOL 


M^EA 




GETSYN 


4A1A 




GPUT 


MAS3 




10 PR B A 


4A7C 




PACK 


4CDB 




flflPRriS 


4D00 




STORE 


4D1A 




SYMBOL 


MDbD 




SAVEID 


4E21 




LOCLAb 


4ECb 




DUMYAb 


4F7fl 




ERBPR 


MFfl^ 




STCHAR 


1FDC 




GETC 


5DDE 




CFIVOC 


SD27 




CKIVC 


5Dfib 




GETF 


SOIt 




MODHXR 


53DC 




RDLABL 


5Bm 




SUBPPR 


SBDF 




TREE 


SC^3 




ENDLOC 


blB2 


7 ob o 1 "7 


Phase A7 






FTN 


3Eb3 




GOA 


4515 
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CNVT 

CONV 

DIAG 

DXPT 

DFLOT 

DUMVOL 

GETSYM 

GPUT 

IOPRBA 

PACK 

(3APRMS 

STORE 

SYMBOL 

SAVEID 

L0CLA7 

DUMYA7 

ASEMPR 

EXRLPR 

GETC 

GETF 

IGETCF 

PEflVS 

PRNTNM 

PUNT 

RDLABL 

SYMSCN 

ENDLOC 



MS7b 
M5BB 
MSEE 

I47AF 
l^EA 
IJA1A 
HA53 
i*A7C 
MCDB 
MDOO 
MD1A 
LtDL.0 

i*E2i 

HECfc, 

i*F7a 

MF7fl 

smi 

S1A1 
51BA 
SSOO 

ssn 

S^3A 
S^CT 
SA01 
SA^F 
5ABB 



O 



7.b.l.fl 



Phase Bl 



FTN 

GOB 

CNVT 

DUMMY 

FCMSTK 

GETSYM 

IOPRBB 

KCPART 

KOUTPT 

KPCSTK 

KPC3PR 

KSYMGN 

LABKPC 

LABLER 

PUNT 

tfflPRMS 

STOREB 

SYMBOL 

TSALOC 



3Eb3 
MS7F 
M5T7 
MSDC 
ilhEF 
M7.AD 
i*7Cb 

M'Kfl 
tHDA 
HFA7 
i^F 
MFE7 
iJFFB 

son 

S02F 
SOMT 
S07D 
511A 
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fl.O OBJECT TIME ARITHMETIC ROUTINES 
fi.l Introduction 

This chapter deals with the following object time routines: 



External Function 


Symbolic Name 


Trigonometric sine 


SIN 


Trigonometric cosine 


COS 


Hyperbolic tangent 


TANH 


Exponential 


EXP 


Natural logorithm 


AL0G 


Arctangent. 


ATAN 


Square Root 


S(3RT 



The above routines are designed to operate under the 1700 Mass 
Storage Fortran. They are written in 1700 Assembly Language for 
optimization of code and time of execution. However-i they can 
be used by any other program working under the 1700 Operating 
System as long as the proper calling sequence is generated! and 
cells £C5 and $E5 are reserved for the floating point package 
and temporary storage . 

ft. 2 General Description 

The argument to any of the functions is a real value number 
written in the 1700 Mass Storage Fortran floating point notation. 
The result is also a real value number in floating point notation 

fl.2.1 Temporary Storage 

These routines use the unprotected communications area from 
$Dfl to £E5 as temporary storage area. 

fi. 5.2 Calling Sequence 

Each object time routine is entered via an RTJ instruction 
to its symbolic namei followed by a cell containing the 
address of core where the value of the argument can be 
found in floatingpoint notation- 



C 



AA 3777 



PRINTED IN USlA. 



CONTROL DATA CORPORATION o DEVELOPMENT DIV o SOFTWARE DOCUMENY 

DOCUMENT CLASS , IMS PAGE NO . 8- 1 

PRODUCT maaap woo Hass Sto rage FORTRAN 

PRODUCT MO. CD05 VERSION 5*D MACHINE SERIES__LZ_Q _ 



8.2.3 Returning Sequence 



Each object time routine will return control to the user at the 
program location immediately following the parameter address with 
the calculated value of the function in the floating point 
pseudo-accumulator. 

8.3 Function Description 

The mathematical method used to approximate the functions will be 
found in Appendix A of this document. Basically it is a trun- 
cated Taylor-Mclaurin series with Chebyshev expansion for the 
higher terms of the series. 

8.3.1 Trigonometric Sine (SIN) 

8.3.1.1 Range Reduction 

Let Z be the value of the argument. 

/""' 21 

\^ If /Z/ > 2 then the answer will be assumed zero. 

If: 

Z<0 let U = -Z and sin (Z) = - sin (U) 
Z>0 let U = Z and sin (Z) = sin (U) 

Let I be integral part of u72tt and let 

Y = U - I ' 2tt , then Y £ 2 -rr , and sin (U) = sin (Y) 

If: 

Y>rr, let T = Y - -rr then sin (Y) = - sin (T) 
Y£tt, let T = Y then sin (Y) = sin (T) 

If: 

T >rr/2, let X = rr - T 
T< W2, let X = T 

and sin (T) = sin (X), with X^ if/2 

8.3.1. 2 Series for SIN(X) with X ^ tr/2 

sin(x) = c Q x + c^ 3 + c 2 x 5 + c 3 x 7 + c 4 x 9 

with C Q = 1.0 

C L = T16666647 
C 2 = .83328836E-3 
C 3 =-. 19799327E-3 



-C— -=— 3L585.7.445E-6 
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8.3.2 Trigonometric Cosine (COS) 

Since COS(Z) = SIN(Z + if/2) then object time routine COS will simply 
be a second entry to the SIN routine. 

8.3.2.1 Temporary Storage for SIN and COS 

Eight cells of temporary storage are required by either SIN and 
COS. They are: 

PARADD for parameter address $DE 

RETADD for return address $D9 

FLAG for sign indicator $D8 

X and X„ for temporary floating point -numbers, $DA to $DD 

QS for saving Q $Eg, 

8.3.3 Hyperbolic Tangent (TANH) 

8.3.3.1 If *|X|*k, 

TANH(X) = X + A*X**3 + A *X**5 + A *X**7 + A *X**9 
12 3 4 



where 




\ - 


-0.33333227 


A 2 = 


0.13337246 


A 3 =* 


-0.053388615 


A 4 - 


0.025628253 



If k < |x| -C10 

TANH(X) -~ 1.0 - 2.0/(EXP(2.0*X)+1.0) 
If IXI y 10, TANH(X) = +1.0 
If X =■ 0, TANH(X) = 
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8.3.3.2 Temporary Storage for TANH 

Eight cells of temporary storage are required. 

They are: 

QS for saving Q $E2 

j for indexing in series 1000 $DF 

X XS, Tl*^ for floating point numbers, two cells each 



8.3.4 Arctangent (ATAN) 
8.3.4.1 Range Reduction 

Let Z be value of input argument. 

If: 



Z<0, let U = - Z, and arctan(Z) = - arctan(U) 
Z_o', let U = Z, and arctan(Z) = arctan(U) 



If: 



U- 1, let Y = U, A = 0, and B = 1 

U y 1, let Y = 1/U, A = 72, and B = -1 



If: 



Y< tan (vr/8) let T = r/16 
Y>tan (W8) let T = 3 /16 
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and arctan (U) = A ■+■ B (T + arctan(X)) 

u v - Y - tan(T) 

where X - r=r — 

1 + Y tan (T) 

8.3.4.2 Series for arctan(X), X /. tan(WL6) 

arctan(X) - G Q X -f- (^ X 3 + C £ X 5 

with C - .99999900 

C = T33313333 
C = . 19000000 

8.3.4.3 Temporary Storage for ATAN 
Eleven cells of temporary storage are required. 

They are: 

PARADD for parameter address 5E2 
ARCRET for return address $D9 

ARCFLG for path decision $D8 

X,X ,AF,BF for floating point numbers, $DA to $E1 

8.'J.!i Exponential (EXP) 

8.'}. r j.l Range Reduction 

Let Z be Input value of argument 

If: 

Z < let Y - - Z, and e Z - l/e y 

Z / let Y - Z, and e Z = e Y 

Z put answer equal to 1 and exit. 

v N x 
Now e- 7 2 e if X and N are defined as follows: 

Let T ■-- Y/ln2 

N = T \ \ take integral part 
W - T - N 
X ---- W In 2 

Therefore the maximum absolute value for Y is equal to 88.02968 ( 

which will generate the maximum floating point number. If input "" 

value is greater than this maximum value then a message will be 
typed out and the answer is given as the maximum floating number 
permissible in 1700 Fortran. 
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8.3.5.2 Series for e X for X ^ In 2/2 

Series is normal Taylor-Mclaurin series truncated at n = 7 ; i.e., 
6 



X 
e = 



V x n 



o 



n=0 
8.3.5.3 Temporary Storage for EXP 

oeven cells of temporary storage are required. They are: 

PARADD for parameter address $E0 

RETEXP for return address $DA 

FLAG,N for indicator $DL, $DC 

Y for floating point number, $D8 , $D9 

QS, , .forsaving Q $E1 
8.3.6 Natural Logarithm (ALOG) 

8.3.6.1 Range Reduction 

Let Z be input value of argument. 

If Z ^,0 then the answer will be the maximum floating point number 
possible in 1700. 

Now Z = 2 N Y 

and ln(Z) = (N - \) ln2 + In ( \\\ ) 

u v 1 ~ ^ 2 

where X - v + /j- /2 

Thus /X/ ^ 3 - 2 /T~ 

8.3.6.2 Series for In ( | ~ | ) for /X/ ^ 3 - 2 /F~ 

In (y4^ ) = C Q X + C L X 3 + C 2 X 5 

with C Q = 2.0312500 
C = 0.41666667 
C = 0.90000000 
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8.3.7 
8.3.7.1 



8.3.7.2 



Temporary Storage for ALOG 

Nine cells of temporary sEtrage are required. 

They are: 

PARADD for parameter address £E0 

LNRET for return address $D8 

N,X,X2 for floating point numbers $D9 to $DE 

Squa9I Root (SQRT) f0r Savi " 8 Q $E1 

Range Reduction 

Let Z be input value of argument 

If Z«.. let Y = - Z and •*Z"= - /y" 

also type out error message. 

If Z 2 let Y = Z 

' 2N X and v r Y = 2 N /x " wh 



Now Y = 2 



re \ £ X < 1 



The Pade' approximation for a first estimate with a maximum rela- 
tive error < 2. 3 (E-4) is 





25 


5000 
343 


<X+if ) 




y i - 


7 


L < x + i > 


, Y 235 . 400 
U 49 ; " 2401 





Iterative method 

The square root is computed via a Newton- Raphson iteration start- 
ing with a first approximation, y. above. Successive approxima- 
tions are found from: 



y? 



1 i 1 



(y, + 



unt i 1 



y i+l = y i 



i y 

2 



- ) 
i 

-23 



o 
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8.3.7.3 



8.4 



Temporary Storage for SQRT 

Ten cells of temporary storage are required: 



They are: 
PARADD 

QS 

SQRET 

SQEXP 

SQFLG 

X, Y0, Yl 

Type Out Message 



for parameter address £E0 
for saving Q $E2 
for return address $DA 
for value of N $DC 
for negative input $DB 
for floating point numbers, $DD to $E0 and $D8,$D9 



Any illegal input value will cause a predetermined value to be 
given as an answer and the program will exit normally. It is left 
to the user to take corrective action. 



C 



8.4.1 



Routine 


Argument 


Answer 


SIN or COS 


21 
/Z/> 2 





EXP 


lZ/> 88.02968 


CO . 


ALOG 


Z ^0 


o» 


SQRT 


Z <- 


-//T/ 



8.5 
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fl-3.fl Exponentiation {mm} Subroutine dfiEXPN 

This subroutine is called by programs which use the 
exponentiation operatorr i-e- the symbol *". This 
routine is written in 17DD Assembly Language. It 
has the following entry points: 

Q&QF2I floating number to integer power 

(3fl(3IEF integer number to integer power 
(3fl(3FE!F floating number to floating power 
RETAD 
C2SAVE 

The following externals are declared: 

FLOT 
ALOG 
EXP 

The calls required for temporary storage are: 

FLOFLG for floating/fixed flag *DC 

FRESLT for intermediate results {floating} s 

*DD to SDE V 

SIGN for sign of exponent $DF 

COEFF for address of coefficient $E1 

EXPO for address or val ue of exponent 

SE2 
XLOGC holds intermediate results $E1 

NLTPR holds powers of coefficient $E3 

{floating point number — 2 

words} $EM-L & G saved 
IRESLT for intermediate results {fixed} 

$E5 
FLOVEL for floating point package overflow 

SCfl 
FLACC *CS 
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APPENDIX A 
1700 Mathematical Approximations 

1.0 Introduction 

This paper will derive approximations for object time 1700 Fortran 
programs which will allow fast evaluations with necessary accuracy 
and uncomplicated range reduction. 

1.1 Accuracy 

Since all approximations are to be in floating-point, it shall be 
required that 

R<2" 23 = 1.192E-07 

which is the basic round off due to the size of significant digits 
in 1700. 

2.0 General Description of Method 

The method will combine truncated Taylor-Mclaurin Power Series and 
Chebyshev Polynomials. 

2.1 Truncated Taylor-Mclaurin Power Series 

A function will be expressed as a truncated Taylor-Mclaurin series 
such that the error produced is less than R. i.e., 

m , v 

f(N) = > — — r x , /n/^a 

n=0 

and m is chosen such that 



R< 



f (mH) nrt-t 

(nri-1)! X 



= R T 



2.2 Chebyshev Expansions 



Denote by Tn(x) = cos(nt) the Chebyshev polynomial of degree n in 
x = cos t. Note that /x/^1 and that /Tn(x)/^ 1. Writing 
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) = YcS 



1=0 



the coefficients C are computed from 



C 1 - if (i 4 n) is odd 
n 



C 1 » 2 1 " 1 

n 



Wi)/2\ /(n+i-2)/2> 



^(n-i)/2/ \(n-i)/2 

if (i + n) is even. 

n-1 
Thu. x" -Tn(x) -^(C^ x ^.-^ 



(-1) 



n- i 



i=0 



Table of C is given at end of paper 



2.3 



Use of Chebyshev Expansion 
m-1 



(m) n 



t"(x) 



T-l ' 



+ 



(m) m 
f x 



n=0 
m-1 



ml 



m-1 



E 



f (n) x n + TM 
n=0 n! 2 m 



(x> y 

- 1 " L .-£ 



C 1 X x _(m) 

m f 



i=0 2 



m-1 



m: 



If: R < 



Tm(x) f 



(m)i 



m! 2 



m-1 



+ R„ 



then term involving Tm(x) can also be neglected and series now 
becomes 



m-1 



f< 



t—zA n! 
n-O 



.(m) 



m! 2 



m- 



«n \ n 

T" ' C ) x 
1 m / 



This process can then be repeated as long as the total error does 
not exceed R. 
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3.0 



SIN (X) for XC. vr/2 



^ 



The Taylor-Mclaurin series truncated at n = 6 is 
SIN (x) =) i4^ x 2*H 



(2n+l)! 



n=0 



with Relative Error at x =-^/2 < 



Mi 



13 



13 



= 5.692E-8 



Let x =(ir/2) y^with y<l 
4 

SB«X) -V" ggjy y 2 ^ 1 (*72> 2n+1 - K/2) ^ 



n= 



.. 11 _ T.w v C.? n+1 2n+l 

Now y = ll(y) 11 y n=0 , 1 , . . . , 4 

2 2 

Error occasioned in omitting T(y) terra is 



Rc<fr/2) 



11 



U(y) 



11! 2 



10 



= 3.511E-9 



Total error so far is 6.043E-8 and series becomes 
_4 
SIN<! ; 

'n=0 
3 



Kx) = )_fen+lTr* {Tr,2) 2n+1 + ( ?r /2) 1 V cn 



2n+l i 



, 9 10 J 



or SIN(X) -J^ Bgn+l)! ' W2) 
n=0 L 



11! 2 
2n+l 



2n+1 + W2) 11 Cll 



11!2 



10 



2n+l 



2n+l 



® 



+ (l/9! OT 9 + H2) 11 , 11 V ' 
V 10 / J 



C 
1112 



2n+l 

9 = T 9(y) S y 2n+1 ,n =0,1,2,3 

y .8 "8 
2 2 



Error caused in omitting T n/ s is 6.6E-7 and therefore cannot be 
neglected. 
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Thus using (\) and y =(2/tt)X we get 



4 
S! N (X) =^5^!), 


r 2n+l 

+ U 
11' 2 10 


n=0 

4 
. nercfore: SIN(X) = ) 


2n+l 

A X 
n 



W2) 10 - 2n Vx 2n+1 



n=0 



2 
refine B =' (^/4) then 

A = 1 - fa = 0.99999998 

5B 4 

A l = " 1/3!+ ioT = -- 166666468 

7B 3 
A n = 1/5! -~7h — = .83328836E-2 

4B 2 ^ 

A 3 = - 1/7! 4- -Yq? — = -. 19799328E-3 

A 4 = 1/9! " foT = - 25857445E - 5 



c 



CONTROL DATA CORPORATION o DEVELOPMENT DIV » SOFTWARE DOCUMENT 

a-33 

DOCUMENT CLAS* ... - * M * __ , ) . b , m .., PAGE NO 

PRODUCT NAMF T^_ D naSS Storage~HJRrkAN 



PRODUCT NO. 



Tunr 



VERSION. 



THT 



.MACHINE SERIES 



1700 



4.0 



TANH(X) for x<Tf/8 



Taylor-Mclaurin series for TANH(X) is 

2n ,„ 2n 



TANH(X) = 



<f&^-V«>* 



2n-l 



n=l 



where B„ (0) is the Bernoulli-Euler number B_ (X) evaluated at 
2n 2n 



X = 0. 



v«>- ( " 1)n " 1 L (2n)! 
2n c**o 2n 



N=l 



cos2N*"X 



N 



2n 



^°> - ( - i ;"~; 2 ^ )! -» 2n 

C2-7T) 



where R 



2n 



■u 

N=l 



-2n 



is the Riemann-Zeta function. 



2n 


R 2n 


2 


1.64493407 


4 


1.08232323 


6 


1.01734306 


8 


1.00407736 


10 


1.00099458 


12 


1.00024609 


14 


1.00006125 



so that series can be written as: 



o 



.2n 



TANH(XL) 2(2-1) m R 

L^ 7/ 2n 2n 



2n-l 



.(-1) 



n-1 



n=l 
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Let X =(-^/8).y and truncate series at n = 7 
6 



\ 2(2 2n -l) 2n- 1 

n=l 



tanh(x) = y - x ~„ . ;' * Ro_ y 



- i . i „l'f , n 

with error < 2 - 1 R 



(2) 



38~' 14 



1.897E-8 



/ x V" 2(2 2n -l) D 2n-l , (2 12 -1) 

tanh(x) - ) ;■■„ o — R o„ • y + 



I— ^ n - 3 2n 

n-1 



(2) 



11 



The Chebyshev expansion for y is 

«2n-l 



I « T ll <*> 



11 



2n-l 



10 



10 



11 



32 12 



Rm-y 



and error 



2 12 -1 



42 12 



in omitting T (y) term is 
11 



2.965E-10 



and Lotal error so far 1.927E-8 and series is 
5 



TAN(X): 



n--~-l 



(2 2n - 1 > R _ (2 12 -1) R 



,6n-4 2n 



(2) 



42 12 



,2n-l 
11 



2n-l 



Even though similar expansion for y only gives a total error 
3.84E-8 the value of 



tan(y) = 



( f2+l) + tan(x) 



1 - ( fT+ 1) tan (x) 
becomes very critical as y->Tr/2 and tan(x)-» J2 - 1. 



Therefore series will not be reduced any further 



Q 
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n 



Substituting y = X 8/rr in ® we get 

r-A, r 2n-l . 

/ x V^ To/o2n ,,„ E. G ll X 2nMl 

TANH(X) =^ L 2(2 ^^n " 30-6n ~ 

n=l 

u p - (2 12 - 1)-U ■ R 
where E = rr R-, 9 

(2) iD iZ 

-2 
Define D = 1* then 

A = D-[6R 2 + E'2" 24 ] = 1.0000001 
A 2 = D 2 [30R 4 -5E- 2" 16 ] = -. 33333227 
A = D 3 . [l26R 6 +7E.2" 8 ]= .13337246 
A 4 = D 4 -[510R g " 4 E ] =.053388615 
A 5 = D 5 *[2046R 10 +E.2 8 ]= .025628253 
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Arctan(X) for X C tan (tt/16) 
Taylor-Mc laurin series is 
arcta 



n(X) = 2 _(-l) n X_ 2n+1 
n^(f 



2n+l 



incc X--- tan (7r/16)<.2 then error caused by replacing X - . 2y 
s greater than true error. True value of tan (V/16) = .19891237, 



Then arcttm(X) — 



(-l) n 2 2n+1 



2n-M 



nK) 



(2n+l)(10) 



2n+l 



truncation at n = 4 causes error 

i 
.9 



< 



9 10 



--= 5.6888E-8 



T_(y) C 7 2n+1 2n+l 

7 7 7 

Using y --■■ 1 Z y 

2 2 



in 



2 2n+l 

*"""' (-l) n 2 
arctan(X) = ; 



n=0 



(2n+l)(10) 



2n+l 



2n+l _2 7 

• y 7 y 

(7)10 



will give error ^ 



= 1.857E-8 if T ? term is omitted. Then 



7x10 
total error so far is<7.545E-8 and series becomes 



a re tan (X) = ; 



n=€ L y 



( . n 2 2ri+l 



2-C. 



2n+T 



(2n+l)(10) 



2n+l 



(7)10 



2n+l 



., . . 10X 

M:bf. l i tut mg y - •— — gives 
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2 . 2n+l in 2n-6, 

" r (-l) n C 7 l ° 
arctan(X) = ) ■ ,l n + — 



L (2n+1) ? 2 2n 

n= ~ 

or 

2 
Arctah(X) = \ A n X 2n+1 

and 

A = 1 - 10" 6 = .99999900 

A = - 1/3 '+ 2-(10" 4 ) = - .33313333 

A = 1/5 - 10 " 2 = .19000000 



2n+l 
x 
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6.0 



• 1 x c ^ 1" 2 

Exponential, e for x ^ — r — 



Taylor-Mc laurin series is 

n 
x 

e = 



n! 



i=0 



In 2 , ., 

it x -- — r— and n = 7 error is 



**. 



(•¥)' 



.1/7! = 1.1916E-7 



Therefore series is normal series truncated after n - 6, i.e., 

x \ n 

e = 



n=0 



n: 



11 y J X , v ^ In 2 
Now X and N can always be found such that e J = 2 e where X^ — — 

If X in.i N' ;.rt defined as follows 

Let t ^ y/ln 2 

N t • *> Integra I part 

w =- L - N 
X = W In 2 . 



then 



X = (tj-N)-ln 2 = t-ln 2 - ln( 2? 



X y _-N 

e - e .2 



and e = 2 e 
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truncating series at n = 4 causes error 
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2'(. 17157287) 



and In 



9 

1 + X 

1 - x 



= 2.86E-8 
2X 2n+1 



(2n+l) 
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1 - X " / *n 
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A ■■= 2/3 - 2' 2 4 = 0.66645003 
i a 

A 2 - 2/5 f a 2 / 2 = 0.41471862 



Given Y ■= 2 N Z where 1/2 < Z<1 



Then ln(Y) = N.ln 2 + In Z. 

-2~ 

z - V V 2 

If X is defined as X = -~ 

Z+ '2 



then /X/<3 - 2 % /2 

i n In 2 , . 1 + X 
and In Z — - r— + In - 



Finally In Y *• (N - 1/2). In 2 + In | '[ * 
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1.0 FLOATING POINT PACKAGE 

T.l General Description 

Each floating point number requires two consecutive 1700 
Computer words. The first wordU containing the most significant 
bits of the numberi is the one addressed. Normalized floating 
point format is as follows: 

hJORDl WORD 2 



Ppl 



3E 











Expand nt;v* — 
I •£tibits> 

'-Siqn of number 



■Normalized Coef f icient *- 
-C23 bits> 



-i floating point number X is in the range given below and is 
significant to one part in AXIO^. 

_ 5 12? _ 2 l/23 } 4 x 4 2 lS7 {1 _ 2 l/23 } 

If the most significant word is zero -Clb bits of zero or one>i 
a floating point zero is assumed. 

1.1.1 Exponent 

The floating point exponent is an fl-bit quantity with a 
value ranging from 00 to F^iy Through biasing by flOif' 
this range expresses both positive and negative exponents 



v. 



"1.1.5 Coefficient 



,-23 



The coefficient consists of a 23 bit number n-, l-2"" c:3 ^t |n 
& 0- The high order bit position of the first word is 
the coefficient sign bit. 

A zero denotes a positive coefficient and a one denotes a 
negative coefficient. When the coefficient is negative! 
the entire floating point number is stored in complement 
form. ' 



I. 1.3 Calling Sequence 

FL0T uses an interpretive calling sequence- It does not 
save 0. or FFi it uses the communications locations $C5 
rind $Cb as a pseudo accumulator.' The pseudo accumulator 
i -' retained between calls to FL0T. 

The interpretation of the calling sequence is based on a 
string of 4-bit bytes representing the operationsnfol lowed 
by the operand addresses. The leftmost 4-bit byte is the 
first operations the operand addresses-i if they existi 
follow in the same order as the operation bytes-, one word 



V 
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per byte. As many bytes may exist as desired! but the 
terminating byte must be Mt the operation FEND. 

Example^ 



RTJ 



adc 



Qi 



ress of FLOT 







DM 



AX 



35 



Ufa 



Ab 



user-'s program 
resumes 



n 



The O-j-'s are the operation codesi the A^s are their 
operand addresses. An operand address is not needed by 
all operations! for instance! operation code O3 does not 
have a corresponding A3. 



T.l.M Operations 



The following operations are used by the floating point 
package. 

M-bit 
Operation Code Meaning 



CHMD 



INDX 



lb 



Change of mode operation. All operand 
addresses following this operation 
code in the calling sequence are made 
relative if the preceding addresses 
were absolute! or absolute if the 
preceding addresses were relative. 
Addresses are initially absolute. 
No operand is needed- 

Index. The operand corresponding to 
INDX is used to increment the operand 
of the following operations- FLDDt 
FLST-, FADD-, FSUBt FMPY-, and FDIV. 
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FLST 



'lb 



Each succeeding INDX supersedes the 
last. No index is initially assumed. 

NIDX (a No index. The succeeding operands do 

not have indexing increments. NIDX 
supersedes any preceding INDX n and is 
superseded by any following INDX. 
NIDX is assumed initially. No operand 
is needed. 

FLDD B^b Floating load. The floating point 

number in the corresponding effective 
operand address is transferred to the 
pseudo accumulator. 

Floating store. The floating point 
number is transferred from the pseudo 
accumulator to the corresponding effective 
operand address. 

FCOfl 7 Floating complement. The pseudo 

accumulator is complemented. No 
operand is needed. 

FADD Eik, Floating add. The contents of the 

effective operand address is added 
to the pseudo accumulator! and the 
sum is left in the pseudo accumulator. 

FSUB fl Floating subtract. The contents of 

the effective operand address is 
subtracted from the pseudo accumulator* 
and the result is left in the pseudo 
accumulator. 

FP1PY 1 Floating multiply. The pseudo accum- 
ulator is multiplied by the contents 
of the effective operand address t and 
the result is left in the pseudo 
accumulator. 

FDIV Aib Floating divide. The pseudo accumulator 

is divided by the contents of the e 
effective operand addressn «=»nd the 
result is left in the pseudo accumulator. 

FEND M End of calling sequence. This operation 
•Calso IV terminates the calling sequence. No 
2t3> operand needed. 
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^.1.5 Operands 



All operand addresses! absolute or relative! aro. placed 
in bits m-Q. Bit IS is a flag set to distinguish 
between direct and indirect addresses. 

T. 1.5.1 Absolute Addressing 

An absolute address may be either direct or 
indirect. All indirect addressing is executed 
prior to indexing. Only one level of indirect 
addressing is allowed. 

T.l.S.E? Relative Addressing 

A relative address may be indirect to one level 
of indirectness. The relative address is computed 
by subtracting the location of the address in the 
calling sequence from the address contained in 
that location. For instance! if the relative 
address! Ait is contained in location L+3t where 
L is the first word of the calling sequence! the 
relative address = Ai - L + 3. 

T. 1.5-3 Example 

Compute the floating point arithmetic statements 

X=--CA-CI>+B-CI»mC-CI>+D-CJ>mE-CJ> 

Assuming that X n J n D n Ei and the temporary location 
TEMP are absolutely addressed! and the other 
operands relatively addressed! the generated calling 
sequence would be! 



C 



RTJ 


FLOT 


F lb 


B lb 


1 


b 


absolute 


address J 




absolute 


address D 




absolute 


address E 




>ifc 


5 


Fib 


Bib 


absolute 


address TEMF 


3 


relative 


address I 
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relative address A 


Elfa 


T 


7 


b 


relative address B 


relative address C 


S 


Elt 


*>lb 


4 


absolute address TEMP 


absolute address X 



T.l.b Fault Conditions 

Fault conditions are flagged in a communication 
location -C£Cfl> whenever they occur during execution 
The following bits are set to ones 

BIT Fault Condition 

15 Exponent overflows the exponent in an 
arithmetic operation exceeds the 
maximum range limit. 

14 Divide faults division by zero is 
encountered - 

13 Exponent underflow^ the exponent in 
an arithmetic operation is less than 
the minimum range limit. 

If exponent underflow occursT a floating point 
zero results. If exponent overflow occursi the 
largest word of the appropriate sign results. A 
divide fault is treated as overflow. These error 
conditions may be tested with the IFALT function. 

T.5 FLOATING-POINT ARITHMETIC WITH E3-BIT NUMBERS 

T.E.l Introduction 

Consider the double precision floating-point number! 

F = f-S^' -Cl> 

where |f | lies in the range 



r 
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We have a machine with a ujord length of lb bits and that 
the 32 bits in the double length word are divided in the 
following way! 



=1 bits 



7 most significant bits of f 



binary point 



lb least significant bits of f 
The leftmost block of nine bits is divided into three p?rts 

1. The first {leftmost} bit represents the sign of F. 

2- The second bit represents the sign of/^ . 

3- The next 7 bits represent the magnitude of/o» 

This allows 23 bits for the representation of f. Ue 
shall assume that the binary point lies at the left 
and of the 23 bits representing f so that the 7 most 
significant bits of f are stored in the first word of 
the pairi and the lb least significant bits of f are 
stored in the second word of the pair. 



If we write 

|f/ = c +' d-2"" 7 
whnr-p '" 1 ip"-; \r\ the? rnnqp 

I*/.'. ± c - 1 -2^ ? 
and where d lies in the range 

1/2 6 d 6. 1 -2" lb 



■C3> 



IMi 



-C5> 



then c represents the 7 most significant bits of f and d 
represents the lb least significant bits of f. 

Ue wish to condiser the four basic arithmetic operations 
using floating point numbers of the form discussed • 
Consequently! in order to have notation for two operands! 
let us consider a second floating point 

number - 



G = g.2n 
where |g| lies in the range 
l/2*|g|*l " 2-23 



*b> 



-C7> 
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If we write 

|g| = a + b.E"" 7 
where a lies in the range 

i/2- a£l -E" 7 
where b lies in the range 

1/S^b^l -E- lb 



-Cfl} 



-H> 



■C10> 



then a represents the 7 most significant bits of |g| and 
b represents the It. least significant bits of |g|. 

The machine represents negative numbers using a °one ,J s- 
complement* system. In fact the procedure for changing 
the sign of a floating point number is to perform a bit- 
by-bit complement of the entire 3E bits {including the 
T bits representing the sign and exponent*. 

1.S.E THE FOUR ARITHMETIC OPERATIONS 



A. Multiplication 
F-G 



= -Cf.E^> -Cg.E^> 
= {sign of F.G> |f | 



|g| .**+-* {11> 



The computational procedure is primarily concerned with 
the formation of |f | - |g| • E^ + since {sign F.G> can 
be recorded in advance and used later to apply the correct 
sign to the product- In addition to recording -Csign F-G> 
we record the exponents^ and^ until after the product 
|f| • |g| is formed. In factn we propose the following 
algorithm for multiplying F by G. 

1. Determine and record -Csign F.G> 

E . Form | F | and | fi| . 

3. Record the leftmost nine bits of |F| and |g|. Thisi 

in effect i records/^ and kJ . 
M. Shift the E3 bits of |f| and |g| left until each has 

the bit pattern! 



15 most significant bits 



fl least significant bits ,| 7 zeros 



If this procedure is followedn |f | is no longer 
represented by -C3> during the computation is step 
St below t but has the form 
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c 



|f I = C + D.E-15 
where C lies in the range 

1/E- C^ 1 -E~ ls 
where D lies in the range 

0^ D^l -2- fl 



-C1E* 



-C13> 



{14} 



likewise |g| has the form 

|g| = A + B.2-15 {i 5 > 

and where A lies in the range 

1/E £ A £l -E~ 1S -tlb> 

and where B lies in the range 

£B £l -E-A -C17> 

Use fixed point operations in forming the product 

|f | . |g| = ■CC+D.E-l'S} -CA + B.E" 15 } ' 

= CA +-CCB + DAKS-iS + DB.E" 3 ^ 

= CA +-CCB + DA}.E~ 1S -tlfi> 

Notice that the term DB.E"*30 may be ignored 
because once the product is placed back in 
standard form only E3 bits are retained. Notice^ 
alson that -Clfl> is written in such a way that 
it exhibits the efficiency of the following 
choice of computational steps: 

a. Form CA giving a double length product. 

b. Form CB and retain the most significant half 
of the double length product. 

c. Form DA. 

d- Add the most significant half of DA to the 
most significant half of CB. 

e. Add the least significant half of CA to the 
sum obtained in -Cd>. This result is the 
second half of the double length product. 
The first half of the double length product 
is the most significant half of CA which was 
formed above in a. 

Nextn round and normalize the product obtained 

using -Clfl> in Step 5. Any adjustment in the 
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exponent/O +^ which is necessary because of the 
normalization of |f | . |g| must be performed. 

?. Finallyi pack the E3 bits of the normalized 

product and the T bits representing the sign and 
the adjusted exponent into two lb bit words. If 
-Csign F.G> is negative! the two words must then 
be complemented to give the correct sign to the 
product. 

B. Division 

5 

F f.E* -Cm 

= -Csign of G-F 1^1 .5 
as a matter of facti since we want 



III < i, 



-CE0> 



we scale the numerator and write 

r 124 **y8 +1 

1 = -Csign G.FmJI .E ^ -CE1> , 

Thus we propose the following algorithm for dividing 
G by F. 

1. Determine the record -Csign F.G> 

E- Form |f| and |G|. 

3. Record the leftmost nine bits of |f| and |G|. 

thisi in effectn records /& and^j . 
M. Arrange the E3 bits of |f | to give the bit pattern: 



|""+ [ 15 most significant bits of If 1 1 C 



| fl least significant bits 1 7 zeros | D 



and the E3 bits of |g| to give the bit pattern: 
I +1 0| 1M most significant bits of |gl[ A 



| [ 1 least significant bits 1 \=> zeros | B 

Thusi |f | is represented by "C1E>t -C13>t and -Cm> 
as in the case of multiplication. However-i in 
this case we have: 
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al = a + b.e"* 15 



■CEE> 



where A lies in the range 

1/m£ A^l/S - E -15 -CE3> 

and where B "lies in the range 

U6 B i\ -E"^ -CEM> 

S- Use fixed point operations in forming the quotient 

ISL . r 

= A + b.e- 15 

C + D.E-J^^ 



Q 



A + B-E" 15 



A . B _-lS 



1 +D.a"' J,i 
C 



1 - D p-15 . D 2 3 -3D • • 

r 2 ^ 5 



1 



= L + 1 E" 15 -A2. p-" 15 ^ 12. p-30 ^APS p-30 + 
C C" c2 c 5 c3 



C 



-is 




AD2 



12. 

C2 



.E- 3D + 



-CE5> 



Notice that the terms beginning with 

-30 



AD 2 - BD_ 
C 3 C 2 



-E 



may be ignored because only E3 bits of the quotient 
are retained. Noticen also-, that -CE5> is written in 
such a way that it exhibits the efficiency of the 
following choice of computational steps: 

a. Form -AD giving a double length product. 

b. Divide -AD -{as a double length divident> by C. 

c. Form B - AJD_ {rounded to single length! . 

C 
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d. Form the double length dividend 



r ■ "J - 5 " 



■CThe sign of the second term makes this tricky. > 

e. Divide this double length dividend by C. 

f . To obtain the second half of the double length 
quotientn the remainder resulting from the 
division in the provious step must not be divided 
by C. 

The class of machines for which this procedure is 
efficient must have the feature that fixed point 
multiplication leaves a double length product which 
can be used as a double length divident for fixed 
point division. 

b- Nextn round and normalize the quotient obtained using 

•CB5> and the procedure of step 5- Any adjustment 

in the exponent which is necessary because of the 



normalization of 



must be performed. 



V...' 



7. Finallyn pack the 53 bits of the normalized quotient 
and the ^ bits representing the sign and the adjusted 
exponent into two lb bit words. If -Csign F.G> i j 
negative V the two words must then be complemented to 
give the correct sign to the quotient. 



Addition 

A 6 

F + G = f.5^+ g-2 -CSb> 

The basic problem in floating point addition is to adjust 
the exponent of F {or G> so that the binary points are 
lined up before the addition takes place. 

Let us introduce the notation L to represent a pair of 
cells containing the larger of the two numbers F and G-, 
and the notation N to represent a pair of cells con- 
taining the smaller of the two numbers. We shall say 
that F is larger than G if 



J±3 

and F is smaller than G if 

/8<5 



•C27> 



-C2A> 
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We are not concerned about the relative magnitudes of 
f and g in case the exponents are equal. Using this 
conventioni we propose the following algorithm for 
forming F + G. 

1- Record the leftmost nine bits of F and G. Thisn in 

effect i records /0 and S . 
E. Determine the sign of -£j£ -J y and thus determine whether 

F is smaller or larger than G according to {27}&-CSfl>- 
3. Place f and g in L and M . If F is larger than Gn then 

f goes to Li otherwise f goes into M and g goes into 

L. The following bit patterns should be formed 

•there s means "sign bit"}: 



C 



I + Is I s I 13 most significant bits 



^— 'bin 



ary point 



I + 1 10 least significant bits |5 sign bits | 

I s [ s I s I 13 most significant bits j 

^—binary point 



M. 



I 10 least significant bits j b sign bits 



Shift M right \/} -J | places and put a "+" bit at 
beginning of each of the two words. If \p -,5 | £ 
then there is no need to continue since all signifi- 
cant bits in N will be lost. 



the 
E3 



1 + H si \f =3 



"filler" bits 



«— -bin 



ary point 



Q 



m 



Notice that the \/#-J | "filler" bits-, between the 
binary point in N and the most significant bit of 
the fraction! are sign bits- This is mathematically 
correct in a one-'s complement representation of 
negative numbers. 



5. Add the second halves of L and M . 



Ue call the first bit of this sum c If it is a one 
we actually have a carry. If it is a zero we do not 
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have a carry- Howeveri it usually is easier to add 
c -Csee step _> than to test to see whether or not 
it needs to be added as a carry bit in forming the 
sum of the first halves of L and fl . 

_• Add the first halves of L and N and add the carry 
bit obtained from step S- 

I e I * I v I —J 

If e = 1 then an end-around-carry must be performed. 
This means that a one is added at the right end of 
the word produced in step 5. Since this might also 
produce a carry bitn the c in the diagram -Csee step 
S> must be cleared to zero before the end-around-carry 
If a carry bit is again produced! then a one must be 
added at the right end of the word above. It can be 
shown that this last operation can never produce 
another e = 1. 

If v = s,then v is a sign bit. Howeveri if v / s 
then there has been overflow during the addition , and 
and v is the most significant bit of the sum. In 
the latter case an adjustment of the exponent will 
be necessary to give the correct answer. 

7. Shift of second half of the sum left one place to 
clear out the carry bit c. Then shift the double 
length sum left -Ca> one place if v / s"i -Cb> two 
places if v = s. 

This leaves the sum in the following form: 

1 s | 15 most significant bits of sum ( 

| at least fl bits of the sum jsicrn bits j 

fl. If the double length sum was shifted one place left 
in step 7 -Cv ? s> then the exponent must be adjusted 
to take care of the overflow. This means adding one 
to the exponent^or J n whichever is larger. {This 
will be the exponent of the sum.} If the double 
length sum was shifted two places left in step 7n 
no adjustment of exponent is necessary. 

1. The form of the sum given by step fl must be checked 
for normalization since it is possible that several 
of the leading bits of the sum may be zero. -CCancell- 



AA 3777 PRINTED IN USA. 



DOCUMENT CLASS. 
PRODUCT NAME__ 



CONTROL DATA CORPORATION 

3QQD/17DD DEVELOPMENT 



IMS 



17nn MASS STORAGE FORTRAN 



DIVISION 



PAGE NO.. 



"1-1 S 



PRODUCT MODEL NO.__CflQ5 ^^' a 



MACHINE SERIES. 



170 



D. 



ation occurs when two numbers of opposite sign but 
nearly equal magnitude are added.} If the sum is not 
normalized then it should be normalized at this point 
and appropriate adjustments in the exponent should 
be made- If 23 left shifts are not sufficient for 
normalization then the sum should be made zero. 

10- At this point the normalized sum may be rounded 
although the extra coding involved may not be worth 
the gain. If rounding is desired then there are two 
cases to be considered depending on the sign of the 
sum. These cases require that care be taken in 
handling any carry bit produced by the rounding 
operation. 

11- Now pack the 23 most significant bits of the sumi 
along with T bits representing the sign and exponent 
into two lb bit words- If the sign of the sum is 
negative! then the first T bits must be complemented 
before the packing takes place- 

Subtraction 

No special subroutine is necessary since 

F - G = F + {-Gl- 



and one merely complements G before entering the addition 
subroutine . 



REFERENCES: 

Gregorvi Robert T. and Raneyn James L- i Floating Point Arithmetic 
With fiM-bit Numbersi Communications of the ACM-i Volume 1/ Number 1/ 
January ITbM. 

^•3 Low Core Storage Location 

FLOAT uses the low core location *C5 through $D7; they are assigned 
as follows^ 
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Location 
Name 


Loca- 
tion 


Use 


SIGN 


*C7 


Sign register-sign of floating point 
number- 


ERRORS 


sea 


Error bits to indicate exponent overflown 
divide fault i exponent underf low-which are 
used by IFALT to check for these floating 
point errors- 


SHIfCT 


$D1 


Shift counter. 


P 


*D2 


Pseudo program counter which is used by 
FLOAT to know w here it is in the user-'s 
program when it wants to pick up more 
parameters or return. 


INDEX 


$D3 


Effective address of parameter 


RELADR 


$DM 


Absolute/relative indication 

r=l relative address 

RELADR ^ =0 absolute address- 


OPCNT 


SD5 


Op counter - keeps track of which op code 
is being processed. 


OPCODE 


$Db 


Op code holder - holds op codes in the cal 


as 


$D7 


Saves 0. register upon entry into FLOAT. 


G 
G+l 


*C5 
*Cb 


Pseudo accumulator - the two words of the 
floating point number are placed here. 
The pseudo accumulator is broken up into 
C, D and DELTA. 


C 


*CD 


Host significant bits of the coefficient 
of the floating point number. 


D 


$CE 


Least significant bits of coefficient of- 
ficiating point number. 



L 
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Location 
Name 


Loca- 
tion 


Use 


DELTA 


$D0 


Exponent of floating point number. 


F 


$C1 


1. Address of parameter 

or 

2. First word of a {two-word* floating 
point number - used in the same manner 
as G of the pseudo accumulator is 
used when two operands are neededi e.g 
for an add. In this casei F and F+l 

1 are broken up into An B and BETA. 


F+l 


$CA 


The second word of a -Ctwo-word* floating 
point number. 


A 


$CB 


The most significant bits of the coefficie 
1 of the floating point number. 


B 


$CC 


I The least significant bits of the 

I coefficient of the floation point number. 


BETA 


•CF 

______ 


Exponent of floating point number. 
1 



T.M Entry Points and Externals 

The routine FLOAT has one entry pointn FL0T-, and no externals 

T-5 Flowchart of FLOAT. 

The following abbreviations are used! 

MSB = most significant bits 
LSB = least significant bits 
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REGISTERS ARE: 
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10-1 General Description 

The following Object Time Intrinsic Functions are included in 
this chapter: 



Intrinsic Functions 


I/O Routine 


ABS-CX* 


OfiAB 


SIGN-CX-, Y> 


SIGN 


IFIX-CX* 


FXFL 


FL0AT-CI1 


FXFL 



10. ? tffiAD Routine 

This routinen which is written in 17DD Assembly Languagen 
computer the absolute value of a floating point number and 
leaves the result in the pseudo accumulation- 

The calling sequence is: 

RTJ ABS 

1. address of argument 

The entry points are: 

tfflAB 

ABS -[which is equated to dflAB> 

The external declared is: 

FLOT 
The low core locations used by this routine are: 

ABSPRfl 

FLACC 
10-3 SIGN Routine 



•£$E3t £EM> for the parameter of the absolute 

value function 

•CSCSt $Cb> pseudo accumulator 



This routine^ which is written in 17DD Assembly Language! 
computer the sign of the second argument times the absolute 
value of the first argument and leaves the result in the pseudo 
accumulator. 
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The calling sequence is: 
RTJ SIGN 

1. address of first argument 

2. address of second argument 

The entry points are: 

flfiSG 

SIGN {which is equated to <2fiSG> 

The declared external is: 

FLOT 

The low core locations used by this routine are: 

Al {*Dfi> 

A2 {£&=!> 

FF {$E1> used to save I register 

(3S {$E2} used to save Q register 

ID -4 FXFL Routine 

This routine-, which is written in 1700 Assembly Languagen 
performs the conversion of a floating point number into 
an integer {Intrinsic Function IFIX> and of an integer 
into a floating point number {Intrinsic Function FLOATS 
it is also called by programs which have conversion 
cross equal signs. 

The entry points declared by this routine arez 

OflflFIX 

<3fiFX 

Q&QFLT 

<3flFL0T 

FLOAT {which is equated to SflFLOT* 

IFIX {which is equated to tfflFX* 

DFIX {which is equated to IFIX* 

The declared external is: 

FLOT 
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The low core locations used by this routine are: 

CELL2 {$Dfl> 
CELL1 -CSDA* 
QS -C5E2} used to save (3 register 

The calling sequences for FXFL for the Intrinsic Functions 
are: 

for IFIX-CX1: 

RTJ ' IFIX 

1- address of argument 

The resultant integer is in the A register upon return to 
the user program. 

for FLOAT-CI}: 

RTJ FLOAT > 

1- address of argument 

The calling sequence for the conversion across the equal sign 
of a floating point number into an integer is: 

RTJ C3S(3FIX 

In this case the argument is in the pseudo accumulator upon 
entry and the resultant integer is in the A register upon 
exit. 

The calling sequence for the conversion across the equal sign 
of an integer into a floating point number is: 

RTJ flfl(3FLT ■'■■.. 
In this case the argument is in the A register upon entry. 
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DOUBLE PRECISION OBJECT TINE ARITHMETIC ROUTINES 



11.1 



Introduction 

This chapter deals with the following object time 
routines: 



External Function 


Sym 


bolic Name 


Trigonometric sine 




DSIN 


Trigonometric cosine 




DCOS 


Exponential 




DEXP 


Natural logarithm 




DLOG 


Arctangent 




DATAN 


Square Root 




DSflRT 



The above routines are designed to operate under the 
1700 Mass Storage FORTRAN- They are written in 1700 
Assembly Language for optimization of code and time of 
execution. Howevern they can be used by any other 
program working under the 1700 Operating System as long 
as the proper calling sequence is generatedn and cells 
$CS and $ES are reserved for the floating point package 
and temporary storage. 



O 



11.2 



General Description 

The argument to any of the functions is a real value 
number written in the 1700 Mass Storage FORTRAN floating 
point notation. The result is also a real value number 
in floating point notation. 



11.2.1 Temporary Storage 

These routines use the unprotected communications area 
from $CT to $E3 as temporary storage area- 



11.2.2 Calling Sequence 

Each object time routine is entered via an RTJ instruc- 
tion to its symbolic name-i followed by a cell containing 
the address of core where the value of the argument can 
be found in floating point notation. 



O 
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11.2.3 Returning Sequence 

Each object time routine will return control to the 
user at the program location immediately following the 
parameter address with the calculated value of the 
function in the floating point pseudo-accumulator. 

11.3 Function Description 

The mathematical method used to approximate the functions 
will be found in Appendix A of this document. Basically 
it is a truncated Taylor-Nclaurin series. 

11.3.1 Trigonometric Sine -CDSINl 

11.3-1.1 Range Reduction 

Let Z be the value of the argument. 

21 
If /2/> 2 then the answer will be assumed zero. 

If: Z<0 let U = -Z and sin -CZ> = - sin -CU> 
Z.>0 let U = Z and sin -CZ3- = sin -CU3- 

Let I be integral part of U/2 and let 

Y = U - I " 277-n then Y<27Tn and sin -CU> = sin -CY> 

If: Y>7n let T = Y - ir then sin -CY> = - sin -CT1- 
Y^7ri let T = Y then sin -CY3- = sin -CT1 

If: T>7r/2n let X = tt- T 
T^ 77/2, let X = T 

and sin -CT> = sin -CX>t with X<tt/2 

11.3-1.2 Series for SIN-CX* with X^tt/2 

Series is a normal truncated Taylor-Mclaurin series: 

fl r n n y 2n+l 

SIN-CX> = JZ. 

n=0 -E2n*l}2 



O 
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11.3.2 Trigonometric Cosine -CDC0S} 

Sine C0S-EZ> = SIN-CZ + rr/zy then object time routine DCOS 
will simply be a second entry to the DSIN routine. 

11-3.2.1 Temporary Storage for DSIN and DCOS 

Nine cells of temporary storage are required by either 
DSIN or DCOS. They arsz 

RETADD for return address $D1 

FLAG for sign indicator $Dfi 

X and X ? for temporary floating point numbersn 

$DA to $DF 

OS for saving Q. $E2 

11.3.3 Arctangent -CDATAN* 

11.3.3-1 Range Reduction \^_J 

Let Z be value of input argument. 

If: Z<Dt let U = - Zt and arctan-CZ> = - arctan-CU> 
Z>Dt let U = Zt and arctan-CZ* = arctan-CU* 

If: U<ln let Y = Un A = On and B = 1 

U>ln let Y = 1/U-, A = /2n and B = -1 

If: Y<tan -C7r/fl> let T = 7r/lb 
Y>tan -CTT/fll let T = 37r/lb 

and arctan -CU> = A + B -CT + arctan-CX» 

Y - tan-CT> 



where X = 



1 + Y tan -no- 



il. 3. 3. 2 Series for arctan-CXln X< tan-C7r/lb> 

Series is a normal truncated Taylor-flclaurin series: 

fi^ -- n Y 2n+l 

Arctan*X> = ]> ' t " J,J ' X 

n=D 2n+l 
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11.3.3.3 Temporary Storage for DATAN 

Twelve cells of temporary storage are required. 
They .are: 



O 



O 



ARCRET for return address SDT 
ARCFLG for path decision $Dfi 
XnX^nAFiBF for floating point numbersi $DA to 

$E2 



2 



(3S for saving 0. $E3 

11.3.4 Exponential -CDEXPl 

11-3.4.1 Range Reduction 

Let Z be input value of argument 

If: Z<D let Y = - Zi and e z = l/e y 
Z>D let Y = Zn and e z = e y 
Z=Q put answer equal to 1 and exit. 

Now e y = 2 N e x if X and N are defined as follows: 

Let T = Y/ln2 

N = T + 1/2 take integral part 
Id = T - N 
X = (J In 2 

Therefore the maximum absolute value for Y is equal to 
flfl.D^fcifi which will generate the maximum floating point 
number- If input value is greater than this maximum 
valuei then a message will be typed out and the answer 
is given as the maximum floating number permissible in 
17DD FORTRAN. 

11.3.4.2 Series for e x for X<ln 2/2 

Series is normal truncated Taylor-Mclaurin series: 



e X = 



n=D nJ 
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11.3-H.3 Temporary Storage for DEXP 

Seven cells of temporary storage are required. They are: 

RETEXP for return address $DB 

FLAGtN for indicator $DCn DD 

Y for floating point number $Dfln SDTi $DA 

<2S for saving <3 $E1 

11.3-S Natural Logarithm -CDLOG> 

11.3.5.1 Range Reduction 

Let Z be input value of argument. 

If Z^D then the answer will be the maximum floating 
point number possible in 17DD- 

Now Z = 2 N Y >~s 

and ln*Z> = -EN - 1/2} ln2 + In -C-f-£ — } 

1— X 



u v Y - V272 

where X = Y , ,^ 

y + ^/^7^ 

Thus VX/<3 - 2V2" 

11.3.5.2 Series for In <~h for /X/<3 - Z\/T 

1 •• X 

Series is a normal truncated Taylor-Mclaurin series: 

In { > = 2 ^ _ 

1 - X n=D 2n+l 



H.3.5.3 Temporary Storage for DLOG 

Eleven cells of temporary storage are required. They 
arei 

LNRET for return address $Dfl 

NtXvX2 for floating point numbers SDT to $E1 

<2S for saving Q $E3 
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11. 3- b 



Square Root -CDS&RT> 



11.3.b.l 



O 



Range Reduction 

Let Z be input value of argument. 

If Z<D let Y = - Z andVz" = - V^~ 

also type out error message. 

If Z>D let Y = Z 

Now Y = 2 2N X andVv~= 2 N 0Twhere 1/^X^Cl 

The Pade approximation for a first estimate is 



_ 25 



50DQ 
3M3 



-CX + — J 
IT 






11.3.b.2 Iterative Method 



The square root is computed via a Newton-Raphson iteration 
starting with a first approximation-i y. above. Successive 
approximations" aire' "found 'from.:' 



i+1 



= 1/2 -Cy. + 



until 



i+1 



= y 



< 2 



-3fi 



o 



11.3-b.3 Temporary Storage for DS(3RT 

Twelve cells of temporary storage are required. They 
are: 

t2SAVE for saving <2 $E2 

S&RRET for return address SCT 

SfiREXP for value of N $CA 

ARGn Yin for floating point numbersi 

TEMPn £DA to £E1 

SORFLG 
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11. H 



Type Out Message 

Any illegal input value will cause a predetermined value 
to be given as an answer and the program will exit 
normally. It is left to the user to take corrective 
action. 



im.i 



Routine 




Argument 


Answer 


DSIN or 


DCOS 


/Z/> 2 21 





DEXP 


/Z/>flfl. OZ^bfl 


oo 


DLOG 


z<o 


oo 






Z<0 




DS<3RT 


- y/z/ 



11. s 
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11. b 



DEXPN Subroutine - Double Precision Exponentiation {**> 

This subroutine is called by the FORTRAN compiler for 
programs that use the exponentiation operator! i-e-i 
the symbol ##n in performing double precision exponen- 
tiation. This subroutine is written in 1700 Assembly 
Language. It contains the following entry points: 

<2fli2D2I Double precision floating number to 
integer power 

(2fl(2D2F Double precision floating number to 
single precision floating power 

t2fl<3D2D Double precision floating number to 
double precision floating power 
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The following externals are declared: 

DFLOT 

DLOG 

DEXP 

The cells required for temporary storage are: 



DFLOFG 

DFRSLT 

SIGN 

COEFF 

EXPO 

MLTPR 



DFLOVF 
DFLACC 

CZERO 



$ES 
$DB 
$E1 
$E2 
$D7 
$DE 



$Cfi 
$C5 



$22 



o 



Floating/Fixed Flag 

Intermediate DP Results $DBn$DC-«$DD 

Sign of Exponent 

Address of Coefficient 

Address of Exponent 

Powers of Coefficient 

{double precision floating point 

number - 3 words} 

Floating Point Package Overflow Flag 

Double Precision Floating Point 

Pseudo Accumulation -C^CSi^Ctn^C?} 

Low Core Cell containing Zero 



The calling sequence is: 

RTJ OfltfXXX Where XXX is D2I-, D2F-. or "D2D 

. 1- address of coefficient 
2. address of exponent 



O 
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Double Floating to Single Floating 



Q8QD2F 



) 



Save Q 
Register 
in QSAVE 



Place Word 
Mark in 
A Register 



± 



Place +1 

in 
Q Register 



4. 




DEXP 
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Double Floating to Integer 



O 



Q8QD2I 



J> 



Save Q 

Register in 

QSAVE 



Place Word 
Mark in 
A Register 



A 



Place -1 

in 

Q Register 



A 




PAR- 1 
IS. 



O 



DEXP 
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Double Floating to Double Floating 



Q8QD2D 



3 



Save Q 
Register in 
QSAVE 



Place Word 
Mark in 
A Register 



A 



Place 

in 

Q Register 



IPAR- 
IS 




DEXP 
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Put Away 
Calling Seq. 
Address In 

RETADD 



Pick Up 
Address of 
Coefficient 



O 




Yes 



No 



Compute 

Direct 

Address 



Store Address 
of Coefficient 
in COEFF 



1 



Pick Up 
Address of 
Exponent 



c 




DEXP 
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1. DFLOFG equals 

-1 D**I 
D D**F 

2. From this place 
a jump is made 
to DL06EX 



Compute 

Direct 

Address 



MACHINE SERIES 



1700 




Yes 



Store Address 

of Exponent 

in EXPO 



I 



Compute 

Return 

Address 



Set FLOFLG by 
Storing Type 
of Exponentia- 
tion Indicator 




c 



No 



Pick Up 
Exponent 
and Store 
in SIGN 



D**x 




DEXP 
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3. Process D*#I 

4. Process D#*F 

or D**D 



O 




ST ABS y 



Store in 
Exponent 
in EXPO 



CDF-I 



Idret] 



^ 4 
DLO-I 




o 



DEXP 
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Process Double Floating to Integer 



TSTBTQ/ 




ICDF- 
)VF 



A 



Clear Floating 
Point Overflow 
Indicator 
DFLOVF » 



A 



Place 

Coefficient 

in Multiplier 

MLTPR ■ COEFF 



Initialize 

Cumulative 

Result 

DFRSLT « 1.0D0 



-O 



Reset Exponent 
Right Shifted 
1 Bit 




TST4ZR 



Yes 



DF-I 
Y. 




o 



DEXP 
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5. Floating 
DFRSLT = 
DFRSLT#NLTPR 

b. Test exponent to see 
if all significant 
bits have been 
shifted out. 



IDF- 
MPY> 



V 5 
PFLOT 

)o Floating 

Load, Mulfci« 

ply, Store 



TST4ZR 




o 



DEXP 
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7- Square floating 
multiplier 
MLTPR = MLTPR*riLTPR 




UPM- 
JJLT. 



DFLOT 



Do Floating 
Multiply 




c 



DEXP 
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o 



a. 



t. 



Process Double Floating to Floating or Single Floating to Floating 

First uord into 

DFRSLTn 

Second word into 

DFRSLT+1 



Make result zero 
to avoid a fault 
in the natural 
log routine. 



ID. Exit 



DLO-I 




t 



8 



Transfer 

Value of 

Coefficient 

to Internal 

Working Cell 



Yes 



SET ZRO y 9 
DFLOT 

Make Result 
Zero 




£>LOGNA.T 



V10 



EXD- 
>FR 



o 



DEXP 
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11- Take natural log 
of coefficient. 



12. Exit 



LOG- 




2 11 



DLOG 



V_ 



DFLOT 



Multiply 

by 
Exponent 



DEXP 



Raise E to 
Computed 
Exponent 



* 12 
EXD- 




c 



DEXP 

Page 11 of 12 



C 



CA 138-1 REV 10-67 



CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER 



DIVISION 



o 



DOCUMENT CLASS. 
PRODUCT NAME — 



IMS 



17D0 MASS STORAGE FORTRAN 



PAGE NO. 



11-21 



PRODUCT MODEL un C005*3.1 A/B 



MACHINE SERIES 



17DD 



13. Exit 



O 




DFLOT 



Invert 

Floating 

Result 




13 




Restore 
Q Register 



i 



Return 



3 



o 



DEXP 
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APPENDIX A 
17DD Double Precision Mathematical Approximations 

1-D INTRODUCTION 

This paper will derive approximations for object time 
17DD FORTRAN programs which will allow fast evaluations 
with necessary accuracy and uncomplicated range reduction 



1-1 



Accuracy 

Since all approximations are to be in f loating-pointi 
it shall be required that: 

R<2" 3 ^ = l.flnE-12 

which is the basic round off due to the size of signif- 
icant digits in 17DQ. 



2-0 



GENERAL DESCRIPTION OF METHOD 

The method will use normal truncated Taylor-Mclaurin 
Power Series. 



2-1 



Truncated Taylor-Mclaurin Power Series 

A function will be expressed as a truncated Taylor- 
Mclaurin series such that the error produced is less 
than R. That is-j 



m 



f-CN* 



- V 7 f * ny * 

~ / s n! 



x i /n/<! a 



n=D 



and m is chosen such that 
R< 



f m+l 

7\ 



•tm+l>! 



= R T 
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3-D SIN-CX1 for X<tt/2 

The Taylor-Mclaurin series is* 

fi 
SIN-CX1 = _^_ 



*-l> n x 2n+1 



n=D ^ n+ l> ! 



Which expands to: 

_! 

3! """S! "7!' T 1! "11! "13! " IS! T 17! 



x 3 x s x 7 V x 1] \x 13 x ls x 17 



t|.0 Arctan-CX} for X^tan -C^/it,} 

The Taylor-Mclaurin series is: 

a «. xvx - ^ -C-l> n X 2n+1 
Arctan-CX} = ^> 

Which expands to: 

v 3 V S v 7 yT Y ll Y 13 Y 1S Y 17 

Arctan-CX} = X-—+— -—+—-- — + - — + - — 

r A 3 S 7. 1 11 13 IS 17 

5.Q Exponential! e x for x^— ^ — 

Taylor-Mclaurin series is a normal series truncated 
after n = Tt that isn 

x ^T~ x n 

n=D n< 
Which expandedi gives: 

x = x+ _d + 2d + 2_, + _- + _^ + l!. + 2li + isl 

213! m S! t! 71 fi! =J ! 
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Now X and N can always be found such that e y = 2 e 

where X< — 
2 

If X and N are defined as follows 

Let t = y/ln 2 

N = t + 1/2: integral part 
w = t - N 
X = U In 2 . 

then 

X = -Ct-N>'ln 2 = fin 2 - ln-C2 N > 
e X = ■*'. 2~ N 
and e y = 2 N e X 

b.D Natural Logarithm X for |x| ^-£3-2^/2} Q) 

The Taylon-flclaurin series is: 

„2n+l 



IrKit*} = 2 




*-* ^D 2n+1 

Which expands to: 

l-X 3 5 7 1 11 ' 13 15 17 

Given Y = 2 N A where 1/2^Z<1 
Then ln-CY* = N-ln 2 + In Z-' 



2/ 

If X is defined as X = Z "V 2 

Z *\7 7 2 



then /X/^3 - 2 VF 



. n -. _ In 2 . . 1 + X 
and In Z = + In 



Finallyn In Y = -CN - 1/2}. In 2 + In 



l-X 

1 + X 

l-X 
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DSQRT 



SQFLG = 



SQRT 1 



No 




U=U 



SQFLG $ 



TYPE OUT 
SQ 



-O 



SQRT 2 



JZ 



GET VALUE 
OF EXPONENT 




No 



SQRT 3l 



C=0 



c 



i 



RETURN 



} 



INCREASE 

EXPONENT BY 1 

MAKE K = -1 



H> 



SQRT 4, 



U = PSEUDO ACCUMULATOR 



STORE .EXPONENT/ 
2 IN SQ EXP 
MAKE NEW 
EXPONENTS 



SQRT 5 



U = 



■ X = u 
c 5 +.c 4 (X + cp 

(x+cp (x+c 2 ) - c 3 



-t> 



PADE ESTIMATE 
FOR FIRST 
APPROXIMATION 
TO ROOT 



V 


Yo = U 
U = .5 .(YoH™) 









TJ "U O 
73 7* O 

o o n 
o o c 

C <= Z 

o n m 

H H Z 

-4 



z 
o 
o 



ip 

m m > 

in 
to 



z 
> 

n 

z 
m 

u> 

m 

m 



M 



n 



> 

o 

m 

z 
o 



r 

o 

r~ 



n 



no 



n> 

^n 
o 

S3 
"O 

o 

TO 

> 

H 

O 

z 



o 

< 

O 



DEXP 




EXP4 



Y = U/LN(2) 
U = Y+l/2 




1 



U=N=0 



TYPE OUT 

ERROR MESSAGI 

EX 




EXPN1 No 



GET INTEGRAL 
PART OF U 
PUT IN U,N 



EXPN5 



-S> 



i 



U=Y-U.LN(2) 



EXP5 *J 



USING U CALCULATE 

Y=U 9 

* U - X C X n 

<- r\ 



n=0 



n 



C = -r 

n n; 



/1sxp\ 

■(55 K 



No 



U = 2 .U 



EXP 7 



U = Pseudo Accumulator 

On Entry = Value of Parameter 



c 



1 



RETURN 
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V 



DLOG 




Yes 




N=0 
N+1=0 



N+l=-0 



CHANGE 
EXPONENT OF U 
TO ZERO 



.NOW N, N+l 
^ IS A FLOATING 
POINT NUMBER 



1 



N+1=0 



MAKE EXPONENT 
POSITIVE 



LNUU 



E 



FIND FLOATING 
EXPRESSION TO 
EXPRESS EXPONENT 
STORE IN N 





X=U 
X rt = U + 



= X -ST/2 



X 2 

X » X 



8 



X s > C X' 
n=0 



2n+l 



Yes 



c 



RETURN 
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U=(N-1/2)LN(2)+X 
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A 



ARCT2 



A 



ARCFLG=K 



U « 1/U 







K=0 



Yes 




ARGFLG « 
K + ARCFLG 



ARCT5 



1 



X « U 
K =* 2 



No 



A 



IF K=0 SET 
BF=1,0 AF«0 
IF K«2 SET 
BF=«1,0 AF«= «| 




ARCT6 



i 



X = 1 + BF, • X 


X - BF 
X 2 


X «= X • X 







A 



Yes 



A 



K = 



IF KfO SET 
U« 7T/16 
IF 2 U»3 7T/16 



AF«AF+BF°U 



IF K=0 SET 
BF=TAN ( tt/16) 
IF 2 SET BF= 

(3 7T/16) 




No 



V 



A 



ARCFLG « 
ARCFLG-2 



U « U 



ARCT7 



IMHAF 



No 



U = -U 




( 



RETURN 
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FIND 
INTEGRAL 
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LET 6 BE INPUT VALUE. IF 6 <Dt SIN-C01 = 
LET I BE INTEGRAL PART OF /2tt. THEN £ = 
IF/3>tt THEN SIN-C£} = -SIN-C27T-yQ} n LET /B '■ 
IF/3>tt/2 THEN SIN-C/3* = SIN-C7T-/33-. 
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12 -Q 
12.1 



DOUBLE PRECISION FLOATING POINT PACKAGE 

General Description 

Each double precision floating point number requires three 
consecutive words of 17DD Computer storage- The first wordi 
containing the most significant bits of the numberi is the 
one that is addressed- Normalized floating point format is 
as follows: 



IS 


1M 7 


b 




D 


EXPONENT -Cfl BITS> 


NORMALIZED 



L_ 



SIGN OF NUMBER 



IS 







COEFFICIENT 


IS 




D 


OF 3T BITS 



Thus the numbers-i Xi expressable are of the range -2 127 

•Cl-23^>< X< 2 12 " ? -C1-23 C J} and are significant to one part in 

■ 5*-}^ billi on . __If__ the most significant word is zero „Cl_b__bjLts 

"" of zero or l>n a floating point zero is assumed - 

12 .1 -1 Exponent ■■'. ' 

The floating point exponent is an fl-bit quantity with a 
value ranging from DO to FFit,./ Through biasing by A0ifc,-» 
this range expresses both positive and negative exponents- 

i: 

12-1.2 Coefficient ;i 

The coefficient consists of a 3^ bit number ni l-2~ 3c *>|n| 
>D- The high order bit position of the first word is 
the coefficient sign bit. 

A zero denotes a positive coefficient and a one denotes a 
negative coefficient- When the coefficient is negative! / 
the entire floating point number is stored in complement 
form- 
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12.1.3 Calling Sequence 

DFLOT uses an interpretive calling sequence. It saves the (3n 
At and I registers in Temporary Storage} it uses the communi- 
cations locations $C5t $Ctn and $C7 as a pseudo accumulator. 
The pseudo accumulator is retained in volatile or temporary 
storage between calls to DFLOT. 

The interpretation of the calling sequence is based on a 
string of M-bit bytes representing the operations! followed 
by the operand addresses. The leftmost Lt-bit byte is the 
first operation^ the operand addressesn if they existn follow 
in the same order as the operation bytesn one word per byte. 
As many bytes may exist as desiredn but the terminating byte 
must be Mn the operation FEND. 



Example: 



O 



adc 



D- 



RTJ 



35 



ress of DFLOT 



0; 



°b 



a- 



a 



Afc 



user-'s program 
resumes 



O 



The O-j^s are the operation codes =. the A-j-'s are their 
operand addresses. An operand address is not needed by 
all operations! for instance! operation code O3 does not 
have a corresponding A3. 
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12.1-M Operations 

The following operations are used by the floating point 
package. 



Operation 
CHMD 



■4-bit 
Code 



INDX 



lb 



NIDX 



DFLDD 



Bib 



DFLST 



Dlb 



DFCOM 



DFADD 



Elh 



Heaninq 

Change' of mode operation- All operand 
addresses following this operation code 
in the calling sequence are made relative 
if the preceding addresses were absolute! 
or absolute if the preceding addresses 
were relative. Addresses are assumed 
initially absolute. No operand is needed. 

Index. The operand corresponding to INDX 
is used to increment the operand of the 
following operations: DFLDDn DFLST-i DFADDn 
DFSUBn DFI1PY-, and DFDIV . 

Each succeeding INDX supercedes the last. 
No index is initially assumed. 

No index. The succeeding operands do not 
have indexing increments. NIDX supercedes 
any preceding INDXt and is superceded by 
any following INDX. NIDX is assumed 
initially. No operand is needed. 

Double Floating load.. The floating point 
number in the corresponding effective op- 
erand address is transferred to the pseu- 
do accumulator located in temporary 
storage. 

Double Floating store. The floating point 
number is transferred from the pseudo ac- 
cumulator to the corresponding effective 
operand address. 

Double Floating complement. The pseudo 
accumulator is complemented. No operand 
is needed. 

Double Floating add. The contents of the 

effective operand address is added to the 

pseudo accumulator and the sum is left in 
the pseudo accumulator. 
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DFSUB fl Double Floating subtract. The contents 

of the effective operand address is sub- 
tracted from the pseudo accumulator 
and the result is left in the pseudo 
accumulator. 

DFMPY T Double Floating multiply. The pseudo ac- 
cumulator is multiplied by the contents 
of the effective operand address! and the 
result is left in the pseudo accumulator. 

DFDIV Ait, Double Floating divide. The pseudo ac- 
cumulator is divided by the contents of 
the effective operand address! and the 
result is left in the pseudo accumulator. 

FEND M End of calling sequence. This operation 

{also li terminates the calling sequence. No 
2n3> operand needed. 



O 



12 .1 .5 Operands 



O 



All operand addresses! absolute or relative! are placed in 
bits m-Q. Bit IS is a flag set to distinguish between direct 
and indirect addresses. 

12.1.5.1 Absolute Addressing 

An absolute address may be either direct or indirect. 
All indirect addressing is executed prior to indexing 
Only one level of indirect addressing is allowed. 

12.1.5.2 Relative Addressing 

A relative address may be indirect to one level of 
indirectness. The rela-tlve . address is computed by 
subtracting the location of the address in the cal- 
ling sequence from the address contained in that loca- 
tion. For instancen if the relative address! A-],i is 
contained in location L+3i where L is the first word 
of the calling sequence! the relative address = 
■ A], - L + 3. 

12 .1 .5 .3 Example 

Compute the floating point arithmetic statement: 

X=-CA-CI> + B-CI»*C-CI>+D-CJ>*E-CJ> 
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Assuming that Xn'Jn Di En and the temporary 
location TEMP are absolutely addressee^ and the 
other operands relatively addressed! the generated 
calling sequence would be: 



RTJ 






DFLOT 


Fib 


Bib 


T 


© 


absolute 


address 


J 




absolute 


address 


D 




absolute 


address 


E 




»ib 


© 


Fit 


B lb 


absolute 


address 


TEMP 




relative 


address 


I... 




relative 


address 


A 




^b 


T 


© 


© 


relative 


address 


B 




relative 


address 


C 




© 




E lb 




»lb 


© 


absolute 


address 


TEMP 




absolute 


address 


X 





A circle around 
the operator indi- ^ 
cates that the op-(^J 
erator has no 
operand. 



12. Lb Fault Conditions 

Fault conditions are flagged in a communication location -€^Cfl> 
whenever they occur during execution. The following bits are 
set to one : 



BIT 
IS 



Fault .Condition 

Exponent overf low=i the exponent in an arith- ^~. 
metic operation exceeds the maximum range limit. \^_J 
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BIT 

m 

13 



Fault Condition 

Divide faulti division by zero is encountered. 

Exponent underflowi the exponent in an arith- 
metic operation is less than the minimum range 
limit. 



If exponent underflow occursi a floating point zero results. 
If exponent overflow occursn the largest word of the appro- 
priate sign results. A divide fault is treated as overflow. 
These error conditions may be tested with the IFALT function. 

FLOATING-POINT ARITHMETIC UITH 31-BIT NUMBERS 

Introduction 

Consider the double precision floating-point number: 

F = f 2# * •£!> 

where |f| lies in the range 

1/2 < |f | < 1 - 2" 3 ^. -C2> 

Ue have a machine with a word length of lb bits and that the 
H& bits in the double length word are divided in the following 
way: 



T bits 



7 most significant bits of f 



binary point 



lb intermediate significant bits of f 



lb least significant bits of f 



O 



The leftmost block of nine bits is divided into three parts 

1. The first {leftmost} bit represents the sign of F. 

2. The second bit represents the sign of @ . 
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3. The next 7 bits represent the magnitude of f. This 
allows 3T bits for the" representation of f. Ue 
shall assume that the binary point lies at the left 
and of the 3T bits representing f so that the 7 most 
significant bits of f are stored in the first word 
of the three-i and the lb least significant bits of f 
are stored in the third word of the three. 



If we write 

|f I = c + ci x 2~ 7 + d x 2"" 23 
where c lies in the range 

1/2 < c< 1 -2~ 7 
ci lies in the range 

<ci< 1 -2" 113 
and where d lies in the range 

0< d< 1 -2'^ 



■C33- 



-cm 



■C5> 



-Cb* 



r 



then c represents the 7 most significant bits of fn ci repre- 
sents the lb intermediate significant bits of f i and d repre- 
sents the lb least significant bits of f. 

Ue wish to consider the four basic arithmetic operations using 
double precision floating point numbers of the form discussed. 
Consequently! in order to have notation for two operands! let 
us consider a second double precision floating point number. 

G = g.2^ n -C73- 

where |g| lies in the range 

l/2< |g| < 1 -2~ 3 ^ -Cfl} 

If we write 

|g| = a +■ ai x 2~ 7 + b x 2" 23 -H} 

where a lies in the range 

1/2 < a< 1 -2" 7 -CIO} 



C 
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ai lies in the range 

< ai< 1 - 2~ iy -Cll} 

and b lies in the range 

0<b<l -2" 1!a -C12> 

then a represents the 7 most significant bits of | g | i ai 
represents the intermediate significant bits of | g|^ a "d b 
represents the lb least significant bits of |g|- 

The machine represents negative numbers using a "one's- 
complement" system- In fact the procedure for changing the 
sign of a floating point number is to perform a bit-by-bit 
complement of the entire Mfl bits {including the T bits re- 
presenting the sign and exponent!- 

. 1?.?-? THE FOUR ARITHMETIC OPERATIONS 

A - Addition 

F + G = f x 2& + g x 2 S {133- 

The basic problem in floating point addition is to adjust the 
exponent of F -Cor G3- so that the binary points are lined up 
before the addition takes place - 

Let us introduce the notation L to represent three cells con- 
taining the larger of the two numbers F and Gi and the notation 
S to represent three cells containing the smaller of the two 
numbers- Ue shall say that F is larger than G if 

/3>8 {14} 

and F is smaller than G if 

Ue are not concerned about the relative magnitudes of f and 
g in case the exponents are equal- Using this convention! 
we process the following algorithm for forming F + G: 

1- Record the leftmost nine bits of F and G- Thisi in effecti 
records /3 and 8 - 



O 
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2. Determine the sign of -C/3 - S> and thus determine 
whether F is smaller or larger than G according 
to -tm> and -CIS}. 

3- Place f and g in L and S. If F is larger than 6t 
then f goes into Li otherwisen f goes into S and 
g goes into L. The following bit patterns should 
be formed -there s means "sign bit"}: 



+ 


s 


s 


13 most significant bits 






. 





MSB 



binary point 



> L 



IS intermediate significant bits 



ISB 



O 



+ 


11 least signficant bits 


M sign bits 



LSB 



binary point 



13 most significant bits 



MSB 



y s 



lb intermediate significant bits 



ISB 



10 least significant bits 



b sign bits 



LSB 



M. 



Shift S right f/3 - SI places and put a "+" bit at 
the beginning of each of the three words. If 
1^ - 81 = 3Tt then there is no need to continue 
since all significant bits in S will be lost. 
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binary point 



|.£- SI "filler" bits 



MSB 



ISB 



LSB 



S 



Notice that the |/3- SI "filler" bitsn between the 
binary point in S and the most significant bit of the 
function! are sign bits. This is mathematically correct 
in a one's complement representation of negative numbers 

S. Add the LSB portions of L and S- 



O 



b. 



Ue call the first bit of this sum c If it is a onen 
we actually have a carry. Howevern it usually is easier 
to add c -Csee step b> than to test to see whether or 
not it needs to be added as a carry bit in forming the 
sum of the ISB portions of L and S. 

Add the ISB portions of L and S and the carry bit from 
step S. 



cl 



If cl is set to onen we have a carry and we will add 
cl to step 7 in forming the sum of the most significant 
bits of L and S- 

Add the MSB portions of L and S and add the carry bit 
obtained from step b. 



e s v 



C 
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If e = 1 then an end-around-carry must be p 
This means that a one is added at the night 
word produced in step 5. Since this might 
a carr)/ biti the c in the diagram {see step 
cleared to zero before the end-around-carry 
carry bit is again producedn then a one mus 
at the right end of the word produced in st 
this might also produce a carry bitn the cl 
diagram -Csee step b> must be cleared to zer 
the end-around-carry. If a carry bit is ag 
then a one must be added at the right end o 
above. It can be shown that this last oper 
ne\/Br produce another e = 1- 



erf ormed . 

end of the 
also produce 

S3- must be 
. If. a 

t be added ; 

ep b. Since 

in the 
o before 
ain producedn 
f the word 
ation can 



If v = s then v is a sign bit. Howevern if v ^ s then 
there has been overflow during the additionn and the 
v is the most significant bit of the sum. In the latter 
case an adjustment of the exponent will be necessary 
to give the correct answer* 

Shift the LSB portion of the sum left one place to clear 
out the carry bit c Then shift the ISB portion of the 
sum left one place to clear out the carry bit cl. Then 
shift the LSB portion of the sum one place and put the 
bit shifted off into the right most bit of the ISB por- 
tion of the sum. Then shift the triple length sum left 
■Ca> one place if v /si -Cb} two places if v = s. 

This leaves the sum in the following form: 



IS most significant bits of the sum 



lb intermediate significant bits of the sum 



at least fi bits of the sum 



sign bits 



Q 



If the triple length sum was shifted one place left in 
step 7 {v & s> then the exponent must be adjusted to 
take care of the overflow. This means adding one to 
the exponent fi or Si whichever is larger. -CThis will 
be the exponent of the sum. J If the double length sum 
was shifted two places left in step ?i no adjustment 
of exponent is necessary. 
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10- The form of the sum given by step & must be checked 
for normalization since it is possible that several 
of the leading bits of the sum may be zero. -[Can- 
cellation occurs when two numbers of opposite sign 
but nearly equal magnitude are added. > If the sum 
is not normalized at this point n appropriate adjust- 
ments in the exponents should be made. 

If 3T left shifts are not sufficient for normaliza- 
tion-! then the sum should be made zero. 

11. At this point the normalized sum may be rounded 
although the extra coding involved may not be worth 
the gain- If rounding is desired-- then there are 
two cases to be considered depending on the sign 

of the sum. These cases require that care be taken 
in handling any carry bit produced by the rounding 
operations. 

12. Now pack the 3°) most significant bits of the sunn 
along with 1 bits representing the sign and exponent 
into three lb-bit words -tin the standard way}. If 
the sign of the sum is negatives then the first ^ 
bits must be complemented before the packing takes 
place . 

B- Subtraction 

No special subroutine is necessary since 

F - G = F + -C-G> 

and one merely complements G before entering the addition 
subroutine. 



C 



C Multiplication 

F x G = -Cf x 2% -Cg x 2 S > 



-Lib} 



= -Csign F x 6> Ifl x |g| x 2 



£+8 



The computational procedure is primarily concerned with the 

formation of Ifl x |g| x 7T * since -Csign F x G> can be recorded 
in advance and used later to apply the correct sign to the 
product. In addition to recording -Csign F x Gin we record 
the exponents (3 and 8 after the product Ifl x Igl is formed. 
In facti we propose the following algorithm for multiplying 
F by G: 



O 
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1. Determine and record -[sign F x 6> 

2. Form |F| and 161 

3- Record the leftmost nine bits of IFI and 161 . Thisn in 
ef fectn records /3 and 8- 

M. Shift the 3T bits of If I and |g| left until each has the 
bit pattern. 



IS most significant bits 



C and A 



O 



a 



IS intermediate significant bits 



Ci and Ai 



T least significant bits 



L zeros D and B 



If this procedure is followed-. f is no longer represented 
by -C3> during the computation in step St below but has the 
form: 



f = C + Ci x 2" 1S + D x 2" 3D 
where Ci Cii andD lie in the following range 

2" 1 <C<1 - 2~ 1S 

0<Ci< 1 - 2"* 15 

<D< 1 - 2~^ 
likewise |g| has the form 

|g| = A + Ai x 2~ 1S + B x 2" 3D 
where At Ain and B lie in the following range 

2~ 1 <A<1 - 2" 1S 



D<Ai<l - 2 
< B <1 - 2"^ 



-15 



-C17* 

-Clfl} 

-C2D> 

-C211 

-£22} 
-C23* 
•C2M> 
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5. Use fixed point operations in forming the product. 

f x g = {C + Ci'x 2~ 15 + D x 2~ 30 } -CA + Ai x 2~ 1S + B x 2~ 3D } 

= CA + -CCAi +CiA> x 2*" 15 + -CDA + CiAi + CB> x 2~ 3D 
+ OAi + CiB> x 2" 4S + DB x 2" b0 

= CA+ -CCAi + CiA> x 2" 1S + -CDA + CiAi + CB> x 2" 3D 

-C2S> 

Notice that the terms -CDAi +■ CiB> x 2" H and DB x 2~ may 
be ignored because once the product is placed back in 
standard forriH only 3T bits are retained. The following 
computational steps are performed. 

a. Form CA giving a double length product. 

b. Form DA and retain the most significant half of 
the double length product. 

c Form CiAi and retain the most significant half of 
the double length product. 

d. Form CiA giving a double length product. 

e. Add the most significant half of DA to the most 
significant half of CiAi. 

f . Form CB and retain the most significant half of 
the double length product. 

g. Add the most significant half. of DB to the sum 
obtained in -Ce> . 

h. Add the least significant half of CiA to the sum 
obtained in -tgl . 

i. Form CAi giving a double length product. 

j. Add the least significant half of CAi to the sum 
obtained in -Ch> . This result is the least signi- 
ficant portion of the triple length product. 

k. Add the most significant half of CiA to CAi. 

1. Add the least significant half of CA to the sum 
obtained in -Ck}. This result is the intermediate 
significant portion of the triple length product. 
The first half of the double length product is the 
most significant half of CA which was formed above 
in -Ca> • 
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b- Nextn round and normalize the product obtained using 
-C2S> in step 5. Any adjustment in the exponent 
/3 + 8 which is necessary because of the normalization 
of -Cf} x -Cg> must be performed. 

7. ' Finally-i pack the 3^ bits of the normalized product 
and the T bits representing the sign and the adjusted 
exponent into three lb bit words -Cin the standard 
way}. If the {sign F.GJ is negative-! the two words 
must then be complemented to give the correct sign 
to the product . 

Division 

6 = G x i = -Cg x 2 8 > x -C— l_x 



f x 2^ 

n i B ~P 
= -CSgn G x F> x |g| x -~| x 2 



As a matter of factn since we want 



-C2b> 



-C271 



Ue scale the numerator and write 

1 
2 



~ = i"Sgn G x F> x |g| x 



7 



8-/3+1 



x 2 



•C2fl} 



Thus we propose the following algorithm for dividing G by F: 

1. Determine and record -CSgn F x G>. 

2. Form -CF> and -C63-. 



Record the leftmost eight bits of -CF> and -CG3-. 
Thisn in effectn records (S and 8. 



M- Arrange the 3T bits of {f> to give the bit pattern: 



IS most significant bits of -Cfl 



O 



IS intermediate significant bits of -Cf > 



Ai 
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9 least significant bits 

— « - 


6 zeros 



and the 3T bits which represent the number 1.0 
to give the bit patterns 



+ 





14 most significant bits of 1/2 







15 intermediate significant bits of 1/2 







10 least significant bits of 1/2 


5 zeros 



$2DDD a 



$0000 7 



5. Use fixed point operations in forming the quotient 



a + r x 2~ 1S + € x 2"* 3D 



A + Ai x 2" 15 + B, x 2"* 3D 



A L • ■ o""15 . r, ^""30 

A + Ai x 2 + B x 2 



C 



where: a = $2000 

r ~ $0000 

€ = $0000 



a + 1 lY -a±M x 2- 1S 

A A A 

♦ 1 <« -«8j. x a" 30 
A A 

_ Ai iy _ aAi } x 2 -3D 

A 2 A 



[a- | [Ai x 2 



-IS 



Ai 2 



+ {b - ^4— y x 2 



:- 3Q ]] 



•C2^> 
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-MS 
Any terms beginning with 2 are ignored because only 

3^ bits of the quotient are retained- The following 

computational steps are performed: 

2 
a- Form - Ai giving a double length product. 

2 
b. Divide - Ai -{as a double length dividend} by A. 



Form 



A' 2 

Ai 



B - —j— -Grounded to single length}. 

Form the double length dividend 

Ai x 2" 1S +■ [-CB -£»!> x 2" 30 ] 
{The sign of the second term makes this tricky} 



Divide the double length dividend by A and multiply 
the result by a. The multiply is accomplished by 
shifting the result of the divide. 

To obtain the second half of the double length quotientn 
the remainder resulting from the division in the 
previous step must now be divided by A. 

Form a -Cthe most significant bits of 1/2} and the 
result obtained from step e as a double length dividend. 

Divide the double length dividend by A. The result 
is the most significant bits of the quotient. 

Form the remainder of step h and the result of step 
f as a double length dividend. 

Divide the double length dividend by A. The result is 
the intermediate significant bits of the quotient. 

Divide the remainder obtained in step j by A. The 
result is the least significant bits of the quotient- 

Nextn round and normalize the 3 word quotient using 
•C2 C J} and the procedure of step 5. Any adjustment in 
the exponent which is necessary because of normaliza- 



tion of 



must be performed 



m 



The 3 word quotient is then multiplied by |g|. 
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n- Nextn round and normalize the product. Any adjustment 
in the exponent £+8 which is necessary due to the 
normalization must be performed. 

o. Finally pack the 3^ bits of the normalized quotient and 
the' *\ bits representing the sign and the exponent into 
three lb bit words -Cin the standard way}. If -CSgn F x G> 
is negativen the three words must then be complemented to 
give the correct sign to the quotient. 

REFERENCES 

Gregorvi Robert T. and Raney-i James L* v Floating Point 
Arithmetic with AM-Bit Numbersi Communications of the 
ACfln Volume 1/ Number 1/ Januaryi ITbM. 

Low Core Storage Location and Temporary or Volatile Storage 

DFLOT sets the low core locations 5C5 through SCAn they are 
assigned as follows: 



Location 






Name 


Location 


Use 


G 


$CS 


Pseudo accumulator - the three words 


G+l 


*Cb 


of the double precision floating 


6+2 


*C7 


point number are placed here. 


ERRORS 


5CA 


Error bits to indicate exponent . 
overflown divide faulti and exponent 
underflow* These error bits are 
used by IFALT to check for these 






floating point errors. 



There are two versions of DFLOT. The two packages are called 
by the same name -CDFLOTln but one is reentrant and the other 
non-re-entrant. Both packages are usable by run-anywhere pro- 
grams. The re-entrant package must operate in protected core 
The non re-entrant package may operate anywhere.. 

The non-reentrant version of DFLOT utilizes temporary storage 
to perform its computations. The re-entrant version of DFLOT 
utilizes. The volatile storage concept for temporary storac' 
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The non-re-entrant version of DFLOT requires the deck labeled 
DUMVOL which contains entry points AVOLA and AVOLR . This 
deck provides the simulated volatile storage or temporary 
storage required for DFLOT in the background. 

DFLOT uses 3D volatile or. temporary storage locations 1 , they 
are assigned as follows: 



O 



O 





Volatile or 




- Location 


Temporary Storage ' 




Name 


Location 


Use 




D-iI 


Contents of 0. register 




I-iI 


Contents of A register 




2nl 


Contents of I register , 


G. 


3-1 1 


Pseudo Accumulator - the three 
words of the double precision > 


G+V 


Hil 


floating point number are placed 






here- The pseudo accumulator is 


G+2 


S-,1 


broken up into Ci CIt D-i and 
DELTA 


SIGN 


b-il 


Sign register - sign double pre- 
cision floating point number 


ERRORS 


7il 


Error bits 

Bit 15 indicates exponent over- 
flow 

Bit 1M indicates divide fault 
■Cdivide by zero} 

Bit 13 indicates exponent under- 
flow. These are used by IFALT to 
check for these floating point 






errors . 


F 


flil 


1. Address of parameter 

or 

2. First word of a {three word} 
double precision floating 
point number . 

It is used when two operands are 
neededn e.g. for an add. In this 
case Fn F+li and f+2 are broken 






up into An AI-i Bn BETA. 
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Location 
Name 


Volatile or 
Temporary Storage 
Location 


Use 


F+l 
F+2 


Til 
10-.I 


The second word of a {three 
word} double precision floating 
point number - 

The third word of a -Cthree word> 
double precision floating point 
number- 


A 


Hi I 


The most significant bits of the 
coefficient of the double pre- 
cision floating point number- 


AI 


12-, I 


The intermediate significant 
bits of the coefficient .of the 
double precision floating point 
number • 


B 


■13i I 


The least significant bits of 
the coef ficienVpf* the double 
precision floating point number - 


BETA 


m.-ii 


Exponent of the double precision 
floating point number* 


C 


1S-.I 


Most significant bits of the co- 
efficient of the double precision 
floating point number. 


CI 


Ib-il 


Intermediate significant bits of 
the double precision floating 
point number- 


D 


17i I 


Least significant bits of the co- 
efficient of the double precision 
floating point number. 


DELTA 


■Ifl-il 


Exponent of double precision 
floating point numher - 


SHIFCT 


11.il 


1 ' V 

Shift counter 



o 



o 
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Location 
Name 


Volatile or 
Temporary Storage 
Location 


Use 


P 


20-,! 


Pseudo program address counter 
which is used by DFLOT to know 
where it is in the users program 
when it wants to pick up more 
parameters from the variable 
calling sequence or return to 
the calling program. 


RELADR 


'21il' 


Absolute/relative indication 

pr . AT . P f- 1 relati-ve address 
rcti_AJ>rc ^_ Q absolute address 


OPCNT 


22-.I 


Operation counter - keegs track 
of which operation code^is being 
processed. 


INDEX 


23nl 


Effective address of parameter 


OPCODE 


2-MiI 


Operation code holder - holds the 
operation -Cop* codes contained 
within the call - 


<3S 


25-,! 


Saves Q register upon entry into 
DFLOT 


TEIIPQ 


2bnl 


Temporary Storage for many 
purposes 


TEMGP2 


27-,! 


Temporary Storage for may 
purposes 


Tl 




Temporary Storage for MSB of 
1/Divisor 


T2 




Temporary Storage for ISB of 
1/Divisor 


T3 




Temporary Storage for LSB of 
1/Divisor 


MULDIV 




Multiply/Divide Flag 1 . = 1 for 
Divided = for multiply. 
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12. M Entry Points and Externals 

The routine DFLOT has one entry pointi DFLOT. DFLOT has 
two externals: AVOLA and AVOIR. 

12 .5 Flowchart of DFLOT 

The following abbreviations are used: 

MSB = most significant bits 

ISB = intermediate significant bits 

LSB = least significant bits 



C 



CA 138-1 REV 10-67 



o 



DOCUMENT CLASS. 
PRODUCT NAME_ 



CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER 



jus 

v7dd mass storage fortran 



DIVISION 



PAGE NO. 



12-23 



PRODUCT MODEL mo C0Q5*3.:L A/B 



MACHINE SERIES 



r DFLOT J 



SAVE Q; CLEAR 
THE ABSOLUTE/ 
RELATIVE 
INDICATOR 




GET NEXT 
OPERATION 
CODE 



CLEAR MULTIPLY/DIVIDE 
FLAG (MULDIV) ALLOCATE 

VOLATILE STORAGE 
INITIALIZE ERRORS TO 

CURRENT VALUE IN 
CELL :?C8 



o 



DECREMENT 
INDEX TO 
EFFECTIVE 
ADDRESS OF 
PARAMETER 



STOREP 



I 



INCREMENT 
OPCNT 



SAVE RETURN 
ADDRESS 
IN P 



INTERP 



CLEAR THE 
OP COUNTER 
OPCNT 




SELECT LEFT 
OP CODE AND 
PLACE IN Q 



GET THE OP 
CODE AM) STORH 

IN OPCODE; 
INCREMENT P 



o 




I 



17DD 




REST OF OP CODES 

APPEAR IN OPCODE 

SHIFTED TO FAR 

LEFT 



I 



EXE- 1 
IUT 
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1700 



BRANCH 
ACCORDING TO 
OP CODE 



OP CODE 
3 







-^RETURN TO USER 



^DFLffS" 
^>DFADJ? 




— > FENI» 
1U|> RETURN TO USER 
2 L^ RETURN TO USER 



DFLOT 
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OPERATION CODE =S 

CHANGE NODE. OF OPERATION -CCHND} 



1. RELATIVE ADDRESS 
E. ABSOLUTE ADDRESS 




NO 



9 



SET 

RELADR 
= 



o 



^> 



[nxt3pc 



n 



o. 
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n 



o 



c! 



3- 

Ho 



O 

-J 
Li- 
ft 



- W 
3- 



z 
o 

P H 

< Z 

a ui 
o s 

a. 

o 

< 

o 

J 
o 

a: 

Z 
O 

u 



GZl 



w 

J 

CD 
< 

t- 
Z 

2 J 

2 u 

u z 

ci t- 

Q O 



m 



OPERATION CODE = b 
NO INDEX -CNIDX} 
OPERATION CODE = F 
INDEX -CINDX} 



lNID)j 



^ 



ENTER A 
WITH 

-1 




RESET INDEX 
BEFORE CALLING 
OPERAND 



( STGNDX 



L 



'OPERND 



£ET EFFECTIVE 
ADDRESS OFy 
OPERAND 



STONDX 



L 



STORE EFFEC 
ADDRESS OF 
OPERAND IN 
INDEX 



IVE 



[nxt3 



NXTdPC 



V 
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t/i 



M 



L 

§ 

■z . 






in 



c 



•J-' 
2a 



ft 






2 



O J 

ft. 3 

°8 



X 



u 

■< 

< 

a 

j> 
o 

oc 

SC 

O 



III 
u < 



< 



ffl 



o 
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OPERATION CODE » D 

DOUBLE STORE ACCUMULATOR (DFLST) 

1. TEST FOR PROTECT 
VIOLATION. 

2. STORAGE ADDRESS 
IS PROTECTED. 

3. SIMULATE PROTECT 
VIOLATION. 




FNGWiNa 




DF 

,S 



\L 



FLTSTO 

SPACK ACCU- 
EMULATOR BACK 
'NTO "STANDi 

FORM 



± 



OPERND 



GET ADDRESS 
OF OPERAND 




Yes 



I FOKJ 



SUBTRACT 
LOWEST UNPRO- 
TECTED LOCA- 
TION FROM AD- 
■P.BJ&SS. QF 



OPERA ND 




Yea 




FNG 



SUBTRACT 
HIGHEST UNPROH 
TECTED LOCA- 
TION FROM AD- 
DRESS OF OPERA ND 




Yet? 



1 




PICK UP CON- 
TENT OF $22 
(ZERO) AND 
STORE IN CAL- 
LERS RETURN ADDRESS 



JUMP TO CALLEI.S 
RETURN ADDRESJ! 
WHICH IS NOW 
ZERO 



PROTECT A 
VIOLATION J 



I fokJ 
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STORE 1ST WORD OF 
FLOATING POINT 
NUMBER IN CALLER'S 
RETURN ADDRESS +1 



STORE 2ND WORD OF 
FLOATING POINT 
NUMBER IN CALLER! S 
RETURN ADDRESS +2 



i 



STORE 3RD WORD OF 
FLOATING POINT 
NUMBER IN CALLER'S 
RETURN ADDRESS +3 
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OPERATION CODE * C),M 

END OF CALLING 'SEQUENCE {FEND* 



1.. RESTORE Q AND 
RETURN TO USER 



IfenjJ 



±. 



FLTSTO 



REPACK ACCUMULATOR 
TO *STANDA,RD* 
FORM 



D 



f{lit] 



o 

r-3 



O 



2»" 



3 t- 






O 

_1 



« 



z 
w 

3j 

a 



o 





£ 



o 
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o 

OS 
O 

a. 
or 
o 
v 

< 

< 

O 

_J 

o 

or 

z 
o 
o 
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T7TJTJ 



O 



OPERATION CODE « B 

DOUBLE FLOATING LOAD 
(DFLOD) 

1. FOLLOWING FIVE 
BOXES LOAD THE 
OPERAND INTO G, 
G+l, AND G+2. 




OPERND 



GET ADDRESS' 
OF OPERAND 



PICK UP 3RD WORD 
OF FLOATING POINT 
SOMBER AND STORE 
IN G+2 



PICK UP 2ND WORD 
OF FLOATING POINT 
NUMBER AND STORE 
IN G+l 



PICK UP 1ST WORD 
OF FLOATING POINT 
NUMBER 



ELIMINATE 
MINUS ZERO 
BY INCREASING 
BY +0 



STORE 1ST WORD 
OF FLOATING 
POINT NUMBER 
IN G 




"No 



STORE -1 
IN SIGN 



COMPLEMENT 
ENTIRE 
NUMBER 




STORE +1 
IN SIGN 



-§^ 



STORE 1ST WORD 

OF NUMBER IN 

LOCATION C 




GO 



Yes 




o 
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17DD 



2. Unpack OPERAND into 
C, CI. D and DELTA. 

3. Floating Point number 
is assumed to be zero 
since first word is 
zero. 



o 




STORE 
EXPONENT OF 
NUMBERS IN 

DELTA 



I 



STORE 0, 15 
MOST SIGNIFICANT! 

BITS OF NUMBER 
IN C 



STORE 0, 15 
INTERMEDIATE 
SIGNIFICANT BITS 
OF NUMBER IN CI 



± 



STORE 0, 8 LEAST 
SIGNIFICANT BITS 
OF NUMBER AND 7 
ZEROS IN D 



i 




T- 
P( 




STORE ZERO IN 
C, CI, D, 
DELTA AND 
+1 IN SIGN 




o 
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WORDS IN STANDARD 
FLOATING POINT 
FORM 



STORE ZERO IN 
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THE PSEUDO 
ACCUMULATOR 
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COMPLEMENT 
ENTIRE FLOAT- 
ING POINT " 
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STORE FLOATING 
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PSEUDO ACCUMULA- 
TOR TEMP STORAGE* 
G, G+l AND G+2 
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1. Address is direct if indirect 
bit (Bit 15) is not set. 

2. RELADR»1 if relative address 
and«0 if absolute address. 

3. Absolute and Indirect address. 



MACHINE SERIES 
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GET ADDRESS 

OF ADC IN 

USERS PROGRAM 




STORE ADDRESS 
IN F 
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PICK UP 
RELATIVE/ 

ABSOLUTE 
INDICATION 



ABSIND 



PUT THE 
ADDRESS INTO 
Q REGISTER 
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ABSOLUTE 

ADDRESS 
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GO INDIRECT 
TO GET 
ADDRESS 
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RELDIR ^CALLER RE-^ 
TURN ADDRESS 
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MAKE CALLER'S 

RETURN 

ADDRESS 

NEGATIVE 



ADD CALLER'S 

RETURN ADDRESS 

TO ADDRESS OF 

ADC OF PARAMETER 
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DOUBLE FLOATING MULTIPLY (DEMPY) 

1. Gets the floating point 
number and stores in F, F+l 
and F+2 then unpacks the 
number into 

A«0, 15MSB 
AI»0, 15ISB 
B=0, 8LSB, 7 ZEROS 
BETA«EXPONENT 

2. A jump to JMPOUT causes 
a jump to ARGO. 




OPERND 



GET ADDRESS 

OF NEXT 

OPERAND 



SL 



FLTSET 

RETURN I«7ITH 
F IN A 
REGISTER 




No 




No 
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CHANGE SIGN 

IF NUMBER 
IS NEGATIVE 
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JFLTlJ 



Yes 



£> JMPOUT 
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Yes 
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3. Multiply the MSB of one 
number by the MSB of the 
other number. 




JMPOUT 



Yes 
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ARGO 



> 



NOZERO 



MULTIPLY 
C BY A 



STORE C*A 
IN TEMGP2 
STORE C*A 
IN G 



(LSB) 
(MSB) 



MULTIPLY 
D BY A 



(MSB) Rounded 



STORE D*A 
(MSB) IN TS1PQ 
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4. Product « C*A+(C*AI+CI*A)X2" 15 30 

+ (d*a+ct*aikm)X2 

5. This routine checks for a carry 
in the A and Q registers. If A 
is negative, carry into Q. If 
Q is negative, end around. 
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MULTIPLY 
CI BY AI 
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STORE CI*AI 
IN F 
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MULTIPLY 
CI BY A 
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STORE CI*A 
IN F+l 
STORE CI*A 
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ADD DA TO 
CI*AI 
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STORE DA-KJI*AI 
IN F+2 
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STORE DA+CI*AI 
IN G+l 



J 



MULTIPLY 
C BY B 
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6. This section rounds and 
truncates to 39 bits. 

7. Coefficient is of the 
form 0, 15MSB. but the 
15MSB are normalized 
such that a one appears 
in the first location of 
the MSB with SHIFCT 
keeping track of how many 
places have been shifted. 




STORE 15MSB 

OF PRODUCT IN 

G IN THE FORM 

0,15MSB 



NORMLZ 




ADD THE EXPONENTS 
OF THE TWO 
NUMBERS AND SUB- 
TRACT THE SHIFT 
COUNTER 



CLEAR THE 

SHIFT 

COUNTER 



STEP 6 



STORE RESULT IN 
DELTA, THE EXPO- 
NENT OF THE 
PRODUCT 



FIND THE POSITION 
OF THE FIRST 1 
BIT IN THE COEF- 
FICIENT OF THE 
PRODUCT AND STORE 
IN SHIFCT 
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PLACE 
NORMALIZED 
COEFFICIENT 

IN C 



STORE THE 
LSB IN D 
STORE THE 
ISB IN CI 




DFLOT 

Page Ifl of 3=1 



O 



CA 138-1 REV 10-67 



o 



DOCUMENT CLASS 
PRODUCT NAME 



CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER 

iris 

1700 MASS STORAGE FORTRAN 



DIVISION 



PAGE NO. 



12-m 



PRODUCT mddfi nid CDQ5*3-1 A/B 



MACHINE SERIES 



TTDTJ 



O 



8. A jump to FMPXIT then 
causes a jump to KXTOPC 
(next OP code). 
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1. A contains the sum of the 
first word of one argument 
times the second word of 
the other argument and 
vice versa. 

2. If A is negative, carry 
into Q. 

3. If Q is negative, end 
around • 



GARRY 




PICK OFF 
ALL BUT 
HIGH ORDER 
BIT 



INCREASE 
Q BY ONE 



PICK OFF 
ALL BUT 
HIGH ORDER 
BIT 
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INCREASE 
A BY ONE 
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FLOATING DIVIDE (FDIV) 

I. Gets the floating point 

number and stores in F, F+l 
and F+2, then unpacks the 
number into A«0,15MSB 
AI-0,15ISB 
B»0,8LSB, 7 zeros 
BETA»EXPONENT 



MACHINE SERIES. 



1700 




QPERNP 



GET NEXT 

OPERAND 

ADDRESS 
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-ELSSEjr. 
RETURN WITH 1 
F IN A 
REGISTER 




CHANGE THE 
SIGN— MAKE 
THE DIVISOR 
POSITIVE 



o 



WFLT2) 







DFLOT 

Page 22 of 3^ 



C 



CA 13B-1 REV 10-67 



o 



DOCUMENT CLASS. 
PRODUCT NAME — 



CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER 



ins 

1700 MASS STORAGE FORTRAN 



DIVISION 



PAGE NO. 



12-i»S 



PRODUCT MOnFi mo C0D5*3.1 A/B 



MACHINE SERIES. 



17DD 



2, Round, Truncate and Normalize 
the results. 
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CHANGE 
EXPONENT 

BETA. ■ 
•BETA+1 
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PERFORM THE OPERATION 
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ROUND 
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1. At ARGFO, the entire number 
is set equal to +0 
A»+0 
B-+0 
BETA-+1 



STEP 
2A 



MACHINE SERIES 



17DD 



FLT-I 
JSETv 



STORE 3RD WORD 
OF FLOATING POINT 
NUMBER IN 
F+2 



STORE 2ND WORD 
OF FLOATING POINT 
NUMBER IN 
F+l 



STORE 1ST WORD 

OF FLOATING POINT 

NUMBER IN F 




STORE 1ST 
WORD OF 
NUMBER IN 
A 




PICK OFF 

EXPONENT 

AND STORE IN 

BETA 



Q? 
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COMPLEMENT 
ENTIRE 
NUMBER 
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EXTRACT COEFFI- 

CIENT FROM 
FLOATING POINT 
NUMBER SO THAT 
A«0,15MSB 
AI°0,15ISB 
B=0,8LSB, ZEROS 
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LOAD 1ST WORD OF 
FLOATING POINT 
NUMBER INTO A 
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OVERFLOW OR UNDERFLOW 



1. If A Is positive, an 
overflow occurred. 

If A is not positive, 
an underflow occurred, 
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EXAMINE 
A 



SETERR 



JL 



SET THE 
APPROPRIATE 
BITS IN 
ERRORS 
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SET C, CI, 
D, AND DELTA 
ACCORDING TO 
TABLE I 



NXTOP3 
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)PC. 



O 



DFLOT 

Page 27 of 3T 



CA 138-1 REV 10-67 



CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER 



— DIVISION 



DOCUMENT CLASS. 
PRODUCT NAME 



ins 

17DD riASS STORAGE FORTRAN 



PAGE NO.. 



12-SD 



c 



PRODUCT MODEL Kin CQ05S3.1 A/B 



MACHINE SERIES 



TTnrr 



a- 



H 



O 



to 
<o- 



8 

to 
<o- 



to 



-co- 



to 
to 
to 



to 
<o- 



8 

to 
■eo- 






<o- 



9 



H 



> p 
Q to 



to 
<o- 



o 
o 
o 
o 
<o- 



o 
o 
o 
o 



o 
o 
o 

<s- 

<0» 



a 



DFLOT 

Page 2fl of 3=1 



CA 136-1 REV 10-67 



o 



CONTROL DATA CORPORATION 
LA JOLLA RESOURCE CENTER 



DIVISION 



DOCUMENT CLASS. 
PRODUCT NAME_ 



ins 



1,7nn MASS. STORAGE FORTRAN 



PAGE NO.. 



12-51 



PRODUCT MODEL mh CD05*3-1 A/B 



MACHINE SERIES 



17DD 



OPERATION CODE « 8 
DOUBLE FLOATING SUBTRACT (DFSUB) 



1. Change the sign before 
entering the Add routine. 
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DFSUB 
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OPERND 

GET NEXT 

OPERAND 

ADDRESS 
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COMPLEMENT 
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FLOATING 
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FADD2 
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OPERATION CODE - E 



DOUBLE FLOATING ADD (DFADD) 



1. This section adds the 
floating point numbers 
in 6 and F and places 
the result in 6. 

2. Jump out - back to NXTOPC, 
get next OP code. 



DFADD 




OPERND 



GET NEXT 

OPERAND 

ADDRESS 



FADD2 



STORE 3RD WORD OF 
NUMBER IN F+2, 2ND WORD 
OF NUMBER IN F+l, AND 
1ST WORD OF NUMBER IN F 




COMPLEMENT 
1ST WORD 
OF NUMBER 
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EXTRACT 
EXPONENT AND 
STORE IN BETA 
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MANIPULATE BITS SO 
THAT A«0,15MSB 
AI«16ISB, B=»8LSB 
8 ZEROS 



SHIFT D SO THAT 
D-8LSB, 8 ZEROS 
REMOVE BIT 15 FROM 
BOTH CI AND D 



EXAMINE 
SIGN OF ONE 
NUMBER (G) 
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C, CI, 
AND D 
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VALUE AS 

ANSWER 



SI ■ 



STOOD 




Yes 




J? 



No 



-{i> 



FA22 



> 



DFLOT 
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3, This check is made by 
examining the difference 
of the exponents of the 
two numbers. 



MACHINE SERIES 



1700 




EXCHANGE EXPONENTS 
SO THAT THE ACCUMULATOR 
IS ALWAYS LARGER 
THAN THE ARGUMENT 



EXCHANGE 
COEFFICIENT 



C, CI, D, DELTA REPRESENTS 
THE LARGER NUMBER A, 
AI,B,BETA REPRESENTS 
THE SMALLER NUMBER 



ADDS3 



± 



A REGISTER CONTAINS 
THE DIFFERENCE IN 
EXPONENTS WHICH IS 
A POSITIVE NUMBER 



I 



COMPUTE 

DELTA - 

BETA - 45 




DFLOT 
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4. 



5. 



RESULT is result of 
DELTA-BETA-45; is there 
"TOO" great a difference 
between the numbers. 

Shift smaller number 
right (DELTA-BETA) and 
set the sign of MSB to 
positive. Shift LSB 
right 1 and set the 
sign of LSB positive. 
Clear the carry to bit 
15 and add 1 to MSB 
positive the smaller 
number. 




LEAVE THE LARGER 
NUMBER IN THE 
ACCUMULATOR AND 
60 ON 



MANIPULATE BITS SO 
THAT D«0 9 11LSB, 

4 SIGN BITS, 0*3 
ZEROS, 13MSB 



AS31 



MANIPULATE 
COEFFICIENT 



ADD LSB OF 
THE TWO 
NUMBERS 



Yes 



JZ 



CLEAR OVER- 
FLOW AND SET 

FLAG IN Q 
FOR A CARRY 



_2_ 



|T) 



STOCD 




No 



■£> 



3 



n 
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m 



AS6 



ADD ISB OP 
TWO NUMBERS 
AND CARRY 
IF NECESSARY 



AS601 



ADD MSB OF 
TWO NUMBERS 
AND CARRY 
IF NECESSARY 
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7. 



Result is result of 
addition of MSB and 
carry bit. 

Minus zero is 

Q=»7FFF 

A»FFFE 




CLEAR CARRY BIT 

AND ADD 1 TO 
LSB (END AROUND 
CARRY) 




Yes 



INCREASE MSB BY 
ONE ADD CLEAR 
CARRY BIT IN 
LSB 



AS61 



O- 



V. 



MANIPULATE BITS 


SO 


THAT D=»10LSB, 6 


SIGN 


BITS, 03 ZEROS, 


13MSB 


CI»16ISB 





■£> 



J/ 




OARGO 
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8- IF S.Efl.V,. THEN 
SIGN EXTENSION. 
IF S.NE.V-, THEN 
OVERFLOWED INTO 



V IS 

RESULT 
V. 




vL' 



a 



SAVE SIGNS 
AND OVERFLOW 
-CV> IN BITS 
1 AND Q 



.M 



BRANCH 
ACCORDING 
TO VALUES Off 
S AND V 



sv 



DO 



01 



10 



11 
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L, 



= 1 





rr 






m 






X 












^ r* 






m 






u 






c 






< 






a 


V. -. 




t- 






Ol 




-•i 




iu! 




£» 


. 


2U 






'J.I 




^. 


Jv- 




~ 


D- 




~ 


u^ 











3 



c 



L- 


v/ 




<^» 








UJ 






_l 


UJ 




03 


a 


H 


< 


o 


ar 


K 


u 


< 


7 


UJ 


i 





j 

n 


2 


£ t 
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< 
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NO OVERFLOW 



OVERFLOW OCCURRED 



o 



SHFT2 



1 



SET C, CI, AND 
TEMPQ TO SIGN+39 
BITS OF COEFFI- 
CIENT +8 ZEROS 



i 



STOCD 




SHFT1 



A 



INCREMENT 
THE EXPONENT 
SINCE OVERFLOW 



JL 



SET C, CI, AND 

TEMPQ TO SIGN+ 

OV+39 BITS OF 

COEFFICIENT +7 

ZEROS 



i 



STOCD 



o 
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9. Save the sign and magnitude 
of the results. 
On entry 
OSIGN+15MSB 
CI-16ISB 
D-8LSB+8ZEROS 




SET SIGN TO 

-1 
(NEGATIVE) 



I 



COMPLEMENT 

ENTIRE 
COEFFICIENT 



ADDS7 
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10. O0+15MSB 
CI«16ISB 
D=»8LSB+8ZEROS 



o 



I posJ 



A 



SET SIGN TO 
+1 FOR 
POSITIVE 
NUMBER 



ADDS7 




JZ 



10 



STORE C IN 

^; STORE CI II 

6+1; STORE D 

IN G+2 




Yes 



£> ARGO 
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13. D 



OBJECT TIME DOUBLE PRECISION INTRINSIC FUNCTIONS 



13-1 



13.2 



General Description 

The following Object Time Intrinsic Functions are 
included in this chapters 



Intrinsic Functions 


I/O Routine 


DABS-CXJ 




(3ADAB 


DSIGNKX-. 


Y> 


DSIGN 


DFIX-CX1 




FXFL -CSee 
for 


DFLT-CI3- 




flflDFLT 


SNGL 




SNGL 


DBLE 




tfflDBLE 



for Description} 



flfiDAB Routine 

This routinen which is written in 17DD Assembly Language! (^, 
computes the absolute value of a double precision ^ 

floating point number and leaves the result in the 
pseudo accumulator. 

The calling sequence is: 

RTJ DABS 

1. address of argument 

The entry points are: 

(3ADAB 

DABS -Cwhich is equated to flfiDAB* 

The external declared is: 

DFLOT 

The low core locations used by this routine are: 

DFLACC -C$C5i$Ct,i$C7} Double Precision pseudo 

accumulator 
flASKSB -C$ll> Mask S7FFF 
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13.3 DSIGN Routine 

This routinei which is written in 17DD Assembly Language! 
computes the sign of the second argument times the 
absolute value of the first argument and leaves the 
result in the pseudo accumulator- 

The calling sequence is: 

RTJ DSIGN 

1- address of first argument 
2. address of second argument 

The entry points are: 

flflDSG 

DSIGN -Cwhich is equated to <2ADSG> 

The declared external is: 

DFLOT 

The low core locations used by this routine are: 

Al -C$Dfi> 

A2 -C^D^l 

FF -C£E1} used to save I register 

t3S -C$E2> used to save Q register 

13. M flflDFLT Routine 
Entry DFLT 

This routine-! which is written in 17DD Assembly Languagen 
performs the conversion of an integer number into a 
double precision floating point number- 

The calling sequence is: 

RTJ DFLT 

1- address of argument 
The external declared is: 

FLOAT 
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The low core locations used by this routine are: 

MASK -C$11} MASK bit pattern *7FFF 
f2S -C$E2} used to save Q. register 

Entry flflDFLT 

This routinen which is written in Assembly Languagen 
performs the conversion {across the equal sign} of an 
integer into a double precision Floating Point Number 
•CDP=I}. 

The calling sequence is* 

LDA I -[the integer value to be converted is in 

the A register upon entry} 
RTJ flfiDFLT 

The external declared is: 

<2fi(2FLT 
The low core location used by this routine is: 

<2S -C$E2} used to save <2 register 

13.5 SNGL Routine 

This routinen which is written in 17DD Assembly Language! 
obtains the most significant 32 bits of a double 
precision argument. 

The calling sequence is: 

RTJ SNGL 

1. address of argument 

The entry points are: 

SNGL 

tfflSNGL -Cwhich is equated to SNGL} 

The external declared is: 

FLOT 
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The low core location used by this routine is: 
MASK {$11} MASK word $7FFF 

13- b (3ADBLE Routine 

This routinen which is written in 17DD Assembly Language! 
expresses a single precision number {the 2-word argument} 
in double precision form {3-word result}. 

The calling sequence is: 

RTJ DBLE 

1. address of argument 

The entry points are' 

<3fiDBLE 

DBLE {which is equated to flflDBLE} 

The low core locations used by this routine are' 

DFLACC {$C5.n$Cfc.n$C7} Double Precision Floating 

Point Pseudo Accumulator 

MASK {$11} flask utilizing the following 

bit pattern $7FFF 

ZERO {$22} Low Core cell containing Zero 

13-7 DRSTOR Subroutine - Double Precision Compiler Support 
Object Time Routine 

This subroutine is called by the FORTRAN compiler to 
perform double precision and single precision pseudo- 
accumulator stores which are necessary to provide 
efficient generated code. This subroutine is coded in 
17DD Assembly Language. It contains the following 
entry points: DSTORln RSTORln and DST0R2. 

The low core locations used by this routine are- 

CZERO {$22} Low Core cell containing Zero 

DFLACC {$CSn$Ctn$C7} Double precision floating 

point pseudo accumulator 
MASK {$11} MASK bit Pattern $7FFF 

(2S {$E2} Used to save <2 register 
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Entry Point DST0R1 

This routine obtains values stored in $C5-i $C_- and 
$C7 and stores them in the parameter argument. 

The calling sequence is: 

RTJ DST0R1 

_. address of double precision argument 

The input to the routine is in cells $C5i $C_ and $C7 . 
The output from the routine is the contents of cells 
$C5 and $C_ along with the value zero stored in the 
parameter argument. 

Entry Point RST0R1 

This routine obtains values stored in $C5n $C_n and 
$C7 and stores only $C5 and $C_ in the parameter argu- 
ment which is single precision argument. 

The calling sequence is: 

RTJ RST0R1 

1. address of single precision argument 

The input to the routine is stored in cells $CSn $C_ 
and $C7 . 

The output from the routine is the contents of cells 
s?C5 and $C_ into the parameter argument. 

Entry Point DST0R2 

This routine obtains values stored in the pseudo floating 
accumulator -Ccells $C5 and $C_> and stores them in the 
parameter argument. The routine also stores a zero into 
cell $C7 as well as into the third word of the parameter 
argument. 

The calling sequence is: 

RTJ DST0R2 

1. address of double precision argument 
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The input to the routine is stored in cells $C5n $Cb 
and $C7 . 

The output from the routine is the contents of cells 
$C5 and $Cb and the value zero all stored in the 
parameter argument. Cell $C7 is also set to zero. 
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1. Is address negative? 

2. Do a double precision 
floating point load of 
argument into pseudo 
accumulator. 



DABS 



Pick Up 

Address of 

Argument 




No 



1 



Store Address 

of Argument 

in DABSPM 



Compute 

Return 

Address 



Yes 



Get Absolute 

Address of 

Argument 



o 



DFL 



DFLOT 



Pick Up 
Argument in 

Floating 
Point Form 




flfiDAB 
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3. Do a double precision 

floating point complement 
of the argument of DABS. 



O 




O 
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DSIGN 



1 



Save Q and 
I Registers 

Q->QS 

I-*-FF 



Zero Out 
I Register 



DSO 



Pick Up 
Address of 
Argument 



Compute 

Direct 

Address 



DS1 



-ta- 



St ore 
Argument 
Addresses 
in A1,I 



^ 




Yes 



C 



DSIGN 
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M. Have we just processed 
the first argument's 
address . 

S. Do a Double Precision 
floating point load of 
1st argument. 




Increment 
SIGN 



No 



DFLOT 




Yes 



Increment 
I Register 



i. 




DSO 



o 



Pick Up 1st 

Argument in 

A and 2nd 

Argument in Q 



Eliminate 
Negative 
Zero 



•g 



^ 



DSIGN 
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i. 



DFLOT 



Do a Float- 
ing Point 
^Complement 
of list Art 



lent 



DS4 Y 



Restore Q 
and 
I Registers 



7 



Return 




DSIGN 
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1. FLOAT the integer 
parameter argument 



DFLT 



i 



Save Q 
Register 



Pick Up 
Address of 
Argument 



Address iS 
Indirect^ 


v Yes_ 


Get Absolute 
Address of 
Argument 


\/t5o 







o 



o 



Store 




Address 


of 


Argument 


in 


ADDR 





I 



FLOAT 



Result in 
$C5 & 
$C6 




Set Cell 
$C7 to 



I 



Complete Return 
Address 



Restore Q 
Register 



Return 



} 



Set Cell 
$C7 to -0 
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1- Perform conversion of 
an integer to a 
floating point number- 
Input is in A register 
Output is a floating 
point number contained 
in cells CS & Cb. 



Q8DFLT 



Save 
Q Register 




Set Cell 
$C7 to -0 



Set Cell 
$C7 to 



<3- 



1. 



Restore 
Q Register 



Return 
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1- Do a floating point 
load of argument 
into pseudo accumulator 
{Cells $C5 & $Cb>. 



O 



SNGL 



I 



Save 
Q Register 



Pick Up Address 
of Argument 




Store Address 

of Argument 

in LOADAC 



FLOT 



Obtain Single) 
Precision 
Result 



Compute Return 
Address 



Yes 



-o 



Get Absolute 
Address of 
Argument 



o 



Restore 
Q Register 



Return 



SNGL 
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DBLE 



Save Q Register 



Pick Up Address 
of Argument 




Yes 



-f> 



Get Absolute 
Address of 
Argument 



J/ 



Store Address 

of Argument 
in Q Register 



I 



Store 1st Word 
of D.P. Argument 
into Cell $C5 




No 



-f> 



Set Cell 
$C7 » -0 



Set Cell 
$C7 » 



Store 2nd Word 
of D.P. Argument 
into Cell $C6 



Restore Q Register 



r 



Compute 
Return Address 



Return 



o 
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DSTOR1 



I 



3 



Save Q Register 



JL 



Pick Up Address 
of Argument 




Yes 



-£> 



Store Address 
in Q Register 



ARG = C($C5) 
ARG+1 » C($C6) 
ARG+2 » C($C7) 



Restore 
Q Register 



Complete 
Return Address 



Return 



Get Absolute 

Address of 

Argument 



J 



o 
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RSTOR1 J 



Save Q Register 



Pick Up 

Address of 

Argument 




Yes 



-$> 



Get Absolute 
Address of 
Argument 



Store Address 
in Q Register 



1 



ARG « C($C5) 
ARG+1 - C($C6) 



3L 



Restore 
Q Register 



I 



Complete 
Return Address 



___ 



Return 
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DSTOR2 



3 



Save Q Register 



I 



Pick Up Address 
of Argument 




Yes 



-> 



Get Absolute 
Address of 
Argument 



Store Address 
in Q Register 



I 



o- 



y 



ARC « C($C5) 




No 



ARG+2 « -0 
$C7 » -0 



ARG+2 » 
$C7 « 



V 



ARG+1 « C($C6) 



Restore Q Register 



T 



Compute 
Return Address 



Return 
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